Changeset 7200 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90
- Timestamp:
- 2016-11-06T17:31:33+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90
r6923 r7200 38 38 CONTAINS 39 39 40 SUBROUTINE usr_def_nam( ldtxt, ldnam, kpi, kpj, kpk, kperio )40 SUBROUTINE usr_def_nam( ldtxt, ldnam, cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 41 41 !!---------------------------------------------------------------------- 42 42 !! *** ROUTINE dom_nam *** … … 51 51 !!---------------------------------------------------------------------- 52 52 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information 53 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 54 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 53 55 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 54 56 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. … … 66 68 ! 67 69 WRITE( ldnam(:), namusr_def ) 70 ! 71 ! 72 cd_cfg = 'LOCK_EXCHANGE' ! name & resolution (not used) 73 cp_cfg = INT( rn_dx ) 68 74 ! 69 75 ! Global Domain size: LOCK_EXCHANGE domain is 64 km x 3 grid-points x 20 m
Note: See TracChangeset
for help on using the changeset viewer.