Ignore:
Timestamp:
Oct 30, 2018 7:05:21 PM (3 years ago)
Author:
suehring
Message:

Branch salsa @3446 re-integrated into trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3464 r3467  
    2525! -----------------
    2626! $Id$
     27! - Salsa implemented
     28! - Bugfix convert_utm_to...
     29!
     30! 3464 2018-10-30 18:08:55Z kanani
    2731! - Add variable crs to output files
    2832! - Add long_name to UTM coordinates
     
    103107! 2718 2018-01-02 08:49:38Z maronga
    104108! Corrected "Former revisions" section
    105 ! 
     109!
    106110! 2696 2017-12-14 17:12:51Z kanani
    107111! Change in file header (GPL part)
     
    659663
    660664    USE radiation_model_mod,                                                   &
    661         ONLY: radiation, radiation_define_netcdf_grid
     665        ONLY: radiation, radiation_define_netcdf_grid     
     666     
     667    USE salsa_mod,                                                             &
     668        ONLY:  salsa, salsa_define_netcdf_grid             
    662669
    663670    USE spectra_mod,                                                           &
     
    11641171                CASE DEFAULT
    11651172!
    1166 !--                Check for quantities defined in other modules
     1173!--                Check for quantities defined in other modules                                                       
    11671174                   CALL tcm_define_netcdf_grid( domask( mid,av,i), found,      &
    11681175                                                        grid_x, grid_y, grid_z )
     
    11981205                                                         grid_z )
    11991206                   ENDIF
     1207!
     1208!--                Check for SALSA quantities
     1209                   IF ( .NOT. found  .AND.  salsa )  THEN
     1210                      CALL salsa_define_netcdf_grid( domask(mid,av,i), found,  &
     1211                                                     grid_x, grid_y, grid_z )
     1212                   ENDIF                 
    12001213!
    12011214!--                Now check for user-defined quantities
     
    20342047                   ENDIF
    20352048
     2049!
     2050!--                Check for SALSA quantities
     2051                   IF ( .NOT. found  .AND.  salsa )  THEN
     2052                      CALL salsa_define_netcdf_grid( do3d(av,i), found, grid_x,&
     2053                                                     grid_y, grid_z )
     2054                   ENDIF                 
     2055                   
    20362056!--                Check for user-defined quantities
    20372057                   IF ( .NOT. found )  THEN
     
    30573077                                                         grid_z )
    30583078                         ENDIF
     3079                         
     3080!
     3081!--                      Check for SALSA quantities
     3082                         IF ( .NOT. found  .AND.  salsa )  THEN
     3083                            CALL salsa_define_netcdf_grid( do2d(av,i), found,  &
     3084                                                           grid_x, grid_y,     &
     3085                                                           grid_z )
     3086                         ENDIF                       
    30593087
    30603088!
     
    40374065                                                            grid_z )
    40384066                      ENDIF
     4067                     
     4068!
     4069!--                   Check for SALSA quantities
     4070                      IF ( .NOT. found  .AND.  salsa )  THEN
     4071                         CALL salsa_define_netcdf_grid( do2d(av,i), found,     &
     4072                                                        grid_x, grid_y, grid_z )
     4073                      ENDIF                         
    40394074
    40404075!
     
    49705005                                                            grid_z )
    49715006                      ENDIF
    4972 
     5007                     
     5008!
     5009!--                   Check for SALSA quantities
     5010                      IF ( .NOT. found  .AND.  salsa )  THEN
     5011                         CALL salsa_define_netcdf_grid( do2d(av,i), found,     &
     5012                                                        grid_x, grid_y, grid_z )
     5013                      ENDIF                           
    49735014!
    49745015!--                   Check for gust module quantities
     
    72317272
    72327273       WRITE( message_identifier, '(''NC'',I4.4)' )  errno
     7274
    72337275       message_string = TRIM( NF90_STRERROR( nc_stat ) )
    72347276
     
    74357477    IMPLICIT NONE
    74367478
     7479    INTEGER(iwp) ::  j   !< loop index
     7480   
    74377481    REAL(wp), INTENT(in)  ::  eutm !< easting (UTM)
    74387482    REAL(wp), INTENT(out) ::  lat  !< geographic latitude in degree
     
    74477491    REAL(wp) ::  eta         !<
    74487492    REAL(wp) ::  eta_s       !<
    7449     REAL(wp) ::  j           !< loop index
    74507493    REAL(wp) ::  n           !< 3rd flattening
    74517494    REAL(wp) ::  n2          !< n^2
Note: See TracChangeset for help on using the changeset viewer.