- Timestamp:
- 2019-07-22T10:32:59+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH/MY_SRC/usrdef_nam.F90
r10428 r11317 29 29 CONTAINS 30 30 31 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )31 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 32 32 !!---------------------------------------------------------------------- 33 33 !! *** ROUTINE dom_nam *** … … 41 41 !! ** input : - namusr_def namelist found in namelist_cfg 42 42 !!---------------------------------------------------------------------- 43 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information44 43 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 45 44 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 48 47 ! 49 48 ! 50 INTEGER :: ios , ii! Local integer49 INTEGER :: ios ! Local integer 51 50 ! !!* namusr_def namelist *!! 52 51 INTEGER :: nn_isize ! number of point in i-direction of global(local) domain if >0 (<0) … … 55 54 INTEGER :: nn_perio ! periodicity 56 55 ! !!* nammpp namelist *!! 57 CHARACTER(len=1) :: cn_mpi_send 58 INTEGER :: nn_buffer, jpni, jpnj 56 INTEGER :: jpni, jpnj 59 57 LOGICAL :: ln_nnogather 60 58 !! 61 59 NAMELIST/namusr_def/ nn_isize, nn_jsize, nn_ksize, nn_perio 62 NAMELIST/nammpp/ cn_mpi_send, nn_buffer,jpni, jpnj, ln_nnogather60 NAMELIST/nammpp/ jpni, jpnj, ln_nnogather 63 61 !!---------------------------------------------------------------------- 64 62 ! 65 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 66 64 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 903 ) 67 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist', .TRUE. ) 68 WRITE( ldnam(:), namusr_def ) 65 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 66 ! 67 WRITE( numond, namusr_def ) 69 68 ! 70 69 cd_cfg = 'BENCH' ! name & resolution (not used) … … 75 74 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist: mpi variables 76 75 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901) 77 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' , lwp)76 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 78 77 ! 79 78 REWIND( numnam_cfg ) ! Namelist nammpp in configuration namelist: mpi variables 80 79 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 81 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' , lwp)80 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) 82 81 83 82 kpi = ( -nn_isize - 2*nn_hls ) * jpni + 2*nn_hls … … 92 91 93 92 ! ! control print 94 ii = 1 95 WRITE(ldtxt(ii),*) ' ' ; ii = ii + 1 96 WRITE(ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1 97 WRITE(ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1 98 WRITE(ldtxt(ii),*) ' Namelist namusr_def : BENCH test case' ; ii = ii + 1 93 WRITE(numout,*) ' ' 94 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 95 WRITE(numout,*) '~~~~~~~~~~~ ' 96 WRITE(numout,*) ' Namelist namusr_def : BENCH test case' 99 97 IF( nn_isize > 0 ) THEN 100 WRITE( ldtxt(ii),*) ' global domain size-x nn_isize = ', nn_isize ; ii = ii + 198 WRITE(numout,*) ' global domain size-x nn_isize = ', nn_isize 101 99 ELSE 102 WRITE( ldtxt(ii),*) ' jpni = ', jpni ; ii = ii + 1103 WRITE( ldtxt(ii),*) ' local domain size-x -nn_isize = ', -nn_isize ; ii = ii + 1104 WRITE( ldtxt(ii),*) ' global domain size-x kpi = ', kpi ; ii = ii + 1100 WRITE(numout,*) ' jpni = ', jpni 101 WRITE(numout,*) ' local domain size-x -nn_isize = ', -nn_isize 102 WRITE(numout,*) ' global domain size-x kpi = ', kpi 105 103 ENDIF 106 104 IF( nn_jsize > 0 ) THEN 107 WRITE( ldtxt(ii),*) ' global domain size-y nn_jsize = ', nn_jsize ; ii = ii + 1105 WRITE(numout,*) ' global domain size-y nn_jsize = ', nn_jsize 108 106 ELSE 109 WRITE( ldtxt(ii),*) ' jpnj = ', jpnj ; ii = ii + 1110 WRITE( ldtxt(ii),*) ' local domain size-y -nn_jsize = ', -nn_jsize ; ii = ii + 1111 WRITE( ldtxt(ii),*) ' global domain size-y kpj = ', kpj ; ii = ii + 1107 WRITE(numout,*) ' jpnj = ', jpnj 108 WRITE(numout,*) ' local domain size-y -nn_jsize = ', -nn_jsize 109 WRITE(numout,*) ' global domain size-y kpj = ', kpj 112 110 ENDIF 113 WRITE( ldtxt(ii),*) ' global domain size-z nn_ksize = ', nn_ksize ; ii = ii + 1114 WRITE( ldtxt(ii),*) ' LBC of the global domain kperio = ', kperio ; ii = ii + 1111 WRITE(numout,*) ' global domain size-z nn_ksize = ', nn_ksize 112 WRITE(numout,*) ' LBC of the global domain kperio = ', kperio 115 113 ! 116 114 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH/MY_SRC/zdfiwm.F90
r10420 r11317 406 406 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing 407 407 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 408 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' , lwp)408 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 409 409 ! 410 410 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing 411 411 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 412 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' , lwp)412 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) 413 413 IF(lwm) WRITE ( numond, namzdf_iwm ) 414 414 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/CANAL/MY_SRC/domvvl.F90
r10425 r11317 994 994 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist : 995 995 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 996 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' , lwp)996 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 997 997 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run 998 998 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 999 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' , lwp)999 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) 1000 1000 IF(lwm) WRITE ( numond, nam_vvl ) 1001 1001 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/CANAL/MY_SRC/usrdef_nam.F90
r10074 r11317 58 58 CONTAINS 59 59 60 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )60 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 61 61 !!---------------------------------------------------------------------- 62 62 !! *** ROUTINE dom_nam *** … … 70 70 !! ** input : - namusr_def namelist found in namelist_cfg 71 71 !!---------------------------------------------------------------------- 72 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information73 72 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 74 73 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 76 75 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 77 76 ! 78 INTEGER :: ios , ii! Local integer79 REAL(wp):: zh ! Local scalars77 INTEGER :: ios ! Local integer 78 REAL(wp):: zh ! Local scalars 80 79 !! 81 80 NAMELIST/namusr_def/ rn_domszx, rn_domszy, rn_domszz, rn_dx, rn_dy, rn_dz, rn_0xratio, rn_0yratio & … … 85 84 !!---------------------------------------------------------------------- 86 85 ! 87 ii = 188 !89 86 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 90 87 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 91 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist', .TRUE. ) 88 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist', cdtxt ) 89 ! 90 WRITE( numond, namusr_def ) 92 91 ! 93 92 #if defined key_agrif … … 103 102 #endif 104 103 ! 105 WRITE( ldnam(:), namusr_def )104 WRITE( numond, namusr_def ) 106 105 ! 107 106 cd_cfg = 'EW_CANAL' ! name & resolution (not used) … … 121 120 zh = (kpk-1)*rn_dz 122 121 ! ! control print 123 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1124 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1125 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1126 WRITE( ldtxt(ii),*) ' Namelist namusr_def : EW_CANAL test case' ; ii = ii + 1127 WRITE( ldtxt(ii),*) ' horizontal domain size-x rn_domszx = ', rn_domszx, ' km' ; ii = ii + 1128 WRITE( ldtxt(ii),*) ' horizontal domain size-y rn_domszy = ', rn_domszy, ' km' ; ii = ii + 1129 WRITE( ldtxt(ii),*) ' vertical domain size-z rn_domszz = ', rn_domszz, ' m' ; ii = ii + 1130 WRITE( ldtxt(ii),*) ' horizontal x-resolution rn_dx = ', rn_dx, ' km' ; ii = ii + 1131 WRITE( ldtxt(ii),*) ' horizontal y-resolution rn_dy = ', rn_dy, ' km' ; ii = ii + 1132 WRITE( ldtxt(ii),*) ' vertical resolution rn_dz = ', rn_dz, ' m' ; ii = ii + 1133 WRITE( ldtxt(ii),*) ' x-domain ratio of the 0 rn_0xratio = ', rn_0xratio ; ii = ii + 1134 WRITE( ldtxt(ii),*) ' y-domain ratio of the 0 rn_0yratio = ', rn_0yratio ; ii = ii + 1135 WRITE( ldtxt(ii),*) ' H [m] : ', zh ; ii = ii + 1136 WRITE( ldtxt(ii),*) ' F computation nn_fcase = ', nn_fcase ; ii = ii + 1137 WRITE( ldtxt(ii),*) ' Reference latitude rn_ppgphi0 = ', rn_ppgphi0 ; ii = ii + 1138 WRITE( ldtxt(ii),*) ' 10m wind speed rn_u10 = ', rn_u10, ' m/s' ; ii = ii + 1139 WRITE( ldtxt(ii),*) ' wind latitudinal extension rn_windszy = ', rn_windszy, ' km' ; ii = ii + 1140 WRITE( ldtxt(ii),*) ' wind longitudinal extension rn_windszx = ', rn_windszx, ' km' ; ii = ii + 1141 WRITE( ldtxt(ii),*) ' Uoce multiplicative factor rn_uofac = ', rn_uofac ; ii = ii + 1142 WRITE( ldtxt(ii),*) ' initial Canal max current rn_vtxmax = ', rn_vtxmax, ' m/s' ; ii = ii + 1143 WRITE( ldtxt(ii),*) ' initial zonal current rn_uzonal = ', rn_uzonal, ' m/s' ; ii = ii + 1144 WRITE( ldtxt(ii),*) ' Jet latitudinal extension rn_ujetszy = ', rn_ujetszy, ' km' ; ii = ii + 1145 WRITE( ldtxt(ii),*) ' Jet longitudinal extension rn_ujetszx = ', rn_ujetszx, ' km' ; ii = ii + 1146 WRITE( ldtxt(ii),*) ' bottom definition (0:flat) nn_botcase = ', nn_botcase ; ii = ii + 1147 WRITE( ldtxt(ii),*) ' initial condition case nn_initcase= ', nn_initcase ; ii = ii + 1148 WRITE( ldtxt(ii),*) ' (0:rest, 1:zonal current, 10:shear)' ; ii = ii + 1149 WRITE( ldtxt(ii),*) ' add random noise on initial ssh ln_sshnoise= ', ln_sshnoise ; ii = ii + 1150 WRITE( ldtxt(ii),*) ' Gaussian lambda parameter rn_lambda = ', rn_lambda ; ii = ii + 1122 WRITE(numout,*) ' ' 123 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 124 WRITE(numout,*) '~~~~~~~~~~~ ' 125 WRITE(numout,*) ' Namelist namusr_def : EW_CANAL test case' 126 WRITE(numout,*) ' horizontal domain size-x rn_domszx = ', rn_domszx, ' km' 127 WRITE(numout,*) ' horizontal domain size-y rn_domszy = ', rn_domszy, ' km' 128 WRITE(numout,*) ' vertical domain size-z rn_domszz = ', rn_domszz, ' m' 129 WRITE(numout,*) ' horizontal x-resolution rn_dx = ', rn_dx, ' km' 130 WRITE(numout,*) ' horizontal y-resolution rn_dy = ', rn_dy, ' km' 131 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' m' 132 WRITE(numout,*) ' x-domain ratio of the 0 rn_0xratio = ', rn_0xratio 133 WRITE(numout,*) ' y-domain ratio of the 0 rn_0yratio = ', rn_0yratio 134 WRITE(numout,*) ' H [m] : ', zh 135 WRITE(numout,*) ' F computation nn_fcase = ', nn_fcase 136 WRITE(numout,*) ' Reference latitude rn_ppgphi0 = ', rn_ppgphi0 137 WRITE(numout,*) ' 10m wind speed rn_u10 = ', rn_u10, ' m/s' 138 WRITE(numout,*) ' wind latitudinal extension rn_windszy = ', rn_windszy, ' km' 139 WRITE(numout,*) ' wind longitudinal extension rn_windszx = ', rn_windszx, ' km' 140 WRITE(numout,*) ' Uoce multiplicative factor rn_uofac = ', rn_uofac 141 WRITE(numout,*) ' initial Canal max current rn_vtxmax = ', rn_vtxmax, ' m/s' 142 WRITE(numout,*) ' initial zonal current rn_uzonal = ', rn_uzonal, ' m/s' 143 WRITE(numout,*) ' Jet latitudinal extension rn_ujetszy = ', rn_ujetszy, ' km' 144 WRITE(numout,*) ' Jet longitudinal extension rn_ujetszx = ', rn_ujetszx, ' km' 145 WRITE(numout,*) ' bottom definition (0:flat) nn_botcase = ', nn_botcase 146 WRITE(numout,*) ' initial condition case nn_initcase= ', nn_initcase 147 WRITE(numout,*) ' (0:rest, 1:zonal current, 10:shear)' 148 WRITE(numout,*) ' add random noise on initial ssh ln_sshnoise= ', ln_sshnoise 149 WRITE(numout,*) ' Gaussian lambda parameter rn_lambda = ', rn_lambda 151 150 ! 152 151 ! ! Set the lateral boundary condition of the global domain 153 152 kperio = 1 ! EW_CANAL configuration : closed basin 154 153 ! 155 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1156 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1157 WRITE( ldtxt(ii),*) ' EW_CANAL : closed basin jperio = ', kperio ; ii = ii + 1154 WRITE(numout,*) ' ' 155 WRITE(numout,*) ' Lateral boundary condition of the global domain' 156 WRITE(numout,*) ' EW_CANAL : closed basin jperio = ', kperio 158 157 ! 159 158 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90
r10513 r11317 40 40 CONTAINS 41 41 42 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )42 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 43 43 !!---------------------------------------------------------------------- 44 44 !! *** ROUTINE dom_nam *** … … 52 52 !! ** input : - namusr_def namelist found in namelist_cfg 53 53 !!---------------------------------------------------------------------- 54 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information55 54 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 56 55 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 58 57 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 59 58 ! 60 INTEGER :: ios , ii! Local integer59 INTEGER :: ios ! Local integer 61 60 REAL(wp):: zlx, zly ! Local scalars 62 61 !! … … 64 63 !!---------------------------------------------------------------------- 65 64 ! 66 ii = 167 !68 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 69 66 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 70 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 71 68 ! 72 WRITE( ldnam(:), namusr_def )69 WRITE( numond, namusr_def ) 73 70 ! 74 71 cd_cfg = 'ICE_ADV1D' ! name & resolution (not used) … … 83 80 zly = kpj*rn_dy*1.e-3 84 81 ! ! control print 85 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 186 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 187 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 188 WRITE( ldtxt(ii),*) ' Namelist namusr_def : ICE_ADV1D test case' ; ii = ii + 189 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 190 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' ; ii = ii + 191 WRITE( ldtxt(ii),*) ' ICE_ADV1D domain ' ; ii = ii + 192 WRITE( ldtxt(ii),*) ' LX [km]: ', zlx ; ii = ii + 193 WRITE( ldtxt(ii),*) ' LY [km]: ', zly ; ii = ii + 194 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 195 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 196 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 197 WRITE( ldtxt(ii),*) ' Coriolis:', ln_corio ; ii = ii + 182 WRITE(numout,*) ' ' 83 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 84 WRITE(numout,*) '~~~~~~~~~~~ ' 85 WRITE(numout,*) ' Namelist namusr_def : ICE_ADV1D test case' 86 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 87 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' 88 WRITE(numout,*) ' ICE_ADV1D domain ' 89 WRITE(numout,*) ' LX [km]: ', zlx 90 WRITE(numout,*) ' LY [km]: ', zly 91 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 92 WRITE(numout,*) ' jpjglo = ', kpj 93 WRITE(numout,*) ' jpkglo = ', kpk 94 WRITE(numout,*) ' Coriolis:', ln_corio 98 95 ! 99 96 ! ! Set the lateral boundary condition of the global domain 100 97 kperio = 0 ! ICE_ADV1D configuration : bi-periodic basin 101 98 ! 102 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1103 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1104 WRITE( ldtxt(ii),*) ' ICE_ADV1D : closed basin jperio = ', kperio ; ii = ii + 199 WRITE(numout,*) ' ' 100 WRITE(numout,*) ' Lateral boundary condition of the global domain' 101 WRITE(numout,*) ' ICE_ADV1D : closed basin jperio = ', kperio 105 102 ! 106 103 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90
r10515 r11317 40 40 CONTAINS 41 41 42 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )42 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 43 43 !!---------------------------------------------------------------------- 44 44 !! *** ROUTINE dom_nam *** … … 52 52 !! ** input : - namusr_def namelist found in namelist_cfg 53 53 !!---------------------------------------------------------------------- 54 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information55 54 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 56 55 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 58 57 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 59 58 ! 60 INTEGER :: ios , ii! Local integer59 INTEGER :: ios ! Local integer 61 60 REAL(wp):: zlx, zly ! Local scalars 62 61 !! … … 64 63 !!---------------------------------------------------------------------- 65 64 ! 66 ii = 167 !68 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 69 66 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 70 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist', .TRUE. ) 67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 68 ! 69 WRITE( numond, namusr_def ) 71 70 ! 72 71 #if defined key_agrif … … 79 78 #endif 80 79 ! 81 WRITE( ldnam(:), namusr_def )80 WRITE( numond, namusr_def ) 82 81 ! 83 82 cd_cfg = 'ICE_ADV2D' ! name & resolution (not used) … … 100 99 zly = kpj*rn_dy*1.e-3 101 100 ! ! control print 102 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1103 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1104 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1105 WRITE( ldtxt(ii),*) ' Namelist namusr_def : ICE_ADV2D test case' ; ii = ii + 1106 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 1107 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' ; ii = ii + 1108 WRITE( ldtxt(ii),*) ' ICE_ADV2D domain = 300 km x 300Km x 1 grid-point ' ; ii = ii + 1109 WRITE( ldtxt(ii),*) ' LX [km]: ', zlx ; ii = ii + 1110 WRITE( ldtxt(ii),*) ' LY [km]: ', zly ; ii = ii + 1111 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 1112 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 1113 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 1114 WRITE( ldtxt(ii),*) ' Coriolis:', ln_corio ; ii = ii + 1101 WRITE(numout,*) ' ' 102 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 103 WRITE(numout,*) '~~~~~~~~~~~ ' 104 WRITE(numout,*) ' Namelist namusr_def : ICE_ADV2D test case' 105 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 106 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' 107 WRITE(numout,*) ' ICE_ADV2D domain = 300 km x 300Km x 1 grid-point ' 108 WRITE(numout,*) ' LX [km]: ', zlx 109 WRITE(numout,*) ' LY [km]: ', zly 110 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 111 WRITE(numout,*) ' jpjglo = ', kpj 112 WRITE(numout,*) ' jpkglo = ', kpk 113 WRITE(numout,*) ' Coriolis:', ln_corio 115 114 ! 116 115 ! ! Set the lateral boundary condition of the global domain … … 122 121 #endif 123 122 ! 124 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1125 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1126 WRITE( ldtxt(ii),*) ' ICE_ADV2D : bi-periodic basin jperio = ', kperio ; ii = ii + 1123 WRITE(numout,*) ' ' 124 WRITE(numout,*) ' Lateral boundary condition of the global domain' 125 WRITE(numout,*) ' ICE_ADV2D : bi-periodic basin jperio = ', kperio 127 126 ! 128 127 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r10516 r11317 40 40 CONTAINS 41 41 42 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )42 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 43 43 !!---------------------------------------------------------------------- 44 44 !! *** ROUTINE dom_nam *** … … 52 52 !! ** input : - namusr_def namelist found in namelist_cfg 53 53 !!---------------------------------------------------------------------- 54 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information55 54 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 56 55 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 58 57 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 59 58 ! 60 INTEGER :: ios , ii! Local integer59 INTEGER :: ios ! Local integer 61 60 REAL(wp):: zlx, zly ! Local scalars 62 61 !! … … 64 63 !!---------------------------------------------------------------------- 65 64 ! 66 ii = 167 !68 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 69 66 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 70 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist', .TRUE. ) 67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 68 ! 69 WRITE( numond, namusr_def ) 71 70 ! 72 71 #if defined key_agrif … … 79 78 #endif 80 79 ! 81 WRITE( ldnam(:), namusr_def )80 WRITE( numond, namusr_def ) 82 81 ! 83 82 cd_cfg = 'ICE_AGRIF' ! name & resolution (not used) … … 100 99 zly = kpj*rn_dy*1.e-3 101 100 ! ! control print 102 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1103 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1104 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1105 WRITE( ldtxt(ii),*) ' Namelist namusr_def : ICE_AGRIF test case' ; ii = ii + 1106 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 1107 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' ; ii = ii + 1108 WRITE( ldtxt(ii),*) ' ICE_AGRIF domain = 300 km x 300Km x 1 grid-point ' ; ii = ii + 1109 WRITE( ldtxt(ii),*) ' LX [km]: ', zlx ; ii = ii + 1110 WRITE( ldtxt(ii),*) ' LY [km]: ', zly ; ii = ii + 1111 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 1112 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 1113 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 1114 WRITE( ldtxt(ii),*) ' Coriolis:', ln_corio ; ii = ii + 1101 WRITE(numout,*) ' ' 102 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 103 WRITE(numout,*) '~~~~~~~~~~~ ' 104 WRITE(numout,*) ' Namelist namusr_def : ICE_AGRIF test case' 105 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 106 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' 107 WRITE(numout,*) ' ICE_AGRIF domain = 300 km x 300Km x 1 grid-point ' 108 WRITE(numout,*) ' LX [km]: ', zlx 109 WRITE(numout,*) ' LY [km]: ', zly 110 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 111 WRITE(numout,*) ' jpjglo = ', kpj 112 WRITE(numout,*) ' jpkglo = ', kpk 113 WRITE(numout,*) ' Coriolis:', ln_corio 115 114 ! 116 115 ! ! Set the lateral boundary condition of the global domain … … 122 121 #endif 123 122 ! 124 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1125 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1126 WRITE( ldtxt(ii),*) ' ICE_AGRIF : bi-periodic basin jperio = ', kperio ; ii = ii + 1123 WRITE(numout,*) ' ' 124 WRITE(numout,*) ' Lateral boundary condition of the global domain' 125 WRITE(numout,*) ' ICE_AGRIF : bi-periodic basin jperio = ', kperio 127 126 ! 128 127 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ISOMIP/MY_SRC/usrdef_nam.F90
r10074 r11317 42 42 CONTAINS 43 43 44 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )44 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 45 45 !!---------------------------------------------------------------------- 46 46 !! *** ROUTINE dom_nam *** … … 54 54 !! ** input : - namusr_def namelist found in namelist_cfg 55 55 !!---------------------------------------------------------------------- 56 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information57 56 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 58 57 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 60 59 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 61 60 ! 62 INTEGER :: ios , ii! Local integer61 INTEGER :: ios ! Local integer 63 62 !! 64 63 NAMELIST/namusr_def/ ln_zco, ln_zps, ln_sco, rn_e1deg, rn_e2deg, rn_e3 65 64 !!---------------------------------------------------------------------- 66 65 ! 67 ii = 168 !69 66 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 70 67 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)68 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 72 69 ! 73 WRITE( ldnam(:), namusr_def )70 WRITE( numond, namusr_def ) 74 71 ! 75 72 cd_cfg = 'ISOMIP' ! name & resolution (not used) … … 82 79 ! 83 80 ! ! control print 84 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 185 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 186 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 187 WRITE( ldtxt(ii),*) ' Namelist namusr_def : ISOMIP test case' ; ii = ii + 188 WRITE( ldtxt(ii),*) ' type of vertical coordinate : ' ; ii = ii + 189 WRITE( ldtxt(ii),*) ' z-coordinate flag ln_zco = ', ln_zco ; ii = ii + 190 WRITE( ldtxt(ii),*) ' z-partial-step coordinate flag ln_zps = ', ln_zps ; ii = ii + 191 WRITE( ldtxt(ii),*) ' s-coordinate flag ln_sco = ', ln_sco ; ii = ii + 192 WRITE( ldtxt(ii),*) ' resolution' ; ii = ii + 193 WRITE( ldtxt(ii),*) ' zonal resolution rn_e1deg = ', rn_e1deg, ' degrees' ; ii = ii + 194 WRITE( ldtxt(ii),*) ' meridional resolution rn_e1deg = ', rn_e1deg, ' degrees' ; ii = ii + 195 WRITE( ldtxt(ii),*) ' vertical resolution rn_e3 = ', rn_e3 , ' meters' ; ii = ii + 196 WRITE( ldtxt(ii),*) ' ISOMIP domain = 15° x 10° x 900 m' ; ii = ii + 197 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 198 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 199 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 181 WRITE(numout,*) ' ' 82 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 83 WRITE(numout,*) '~~~~~~~~~~~ ' 84 WRITE(numout,*) ' Namelist namusr_def : ISOMIP test case' 85 WRITE(numout,*) ' type of vertical coordinate : ' 86 WRITE(numout,*) ' z-coordinate flag ln_zco = ', ln_zco 87 WRITE(numout,*) ' z-partial-step coordinate flag ln_zps = ', ln_zps 88 WRITE(numout,*) ' s-coordinate flag ln_sco = ', ln_sco 89 WRITE(numout,*) ' resolution' 90 WRITE(numout,*) ' zonal resolution rn_e1deg = ', rn_e1deg, ' degrees' 91 WRITE(numout,*) ' meridional resolution rn_e1deg = ', rn_e1deg, ' degrees' 92 WRITE(numout,*) ' vertical resolution rn_e3 = ', rn_e3 , ' meters' 93 WRITE(numout,*) ' ISOMIP domain = 15° x 10° x 900 m' 94 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 95 WRITE(numout,*) ' jpjglo = ', kpj 96 WRITE(numout,*) ' jpkglo = ', kpk 100 97 ! 101 98 ! … … 103 100 kperio = 0 ! ISOMIP configuration : close basin 104 101 ! 105 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1106 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1107 WRITE( ldtxt(ii),*) ' ISOMIP : closed basin jperio = ', kperio ; ii = ii + 1102 WRITE(numout,*) ' ' 103 WRITE(numout,*) ' Lateral boundary condition of the global domain' 104 WRITE(numout,*) ' ISOMIP : closed basin jperio = ', kperio 108 105 ! 109 106 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90
r10074 r11317 38 38 CONTAINS 39 39 40 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )40 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 41 41 !!---------------------------------------------------------------------- 42 42 !! *** ROUTINE dom_nam *** … … 50 50 !! ** input : - namusr_def namelist found in namelist_cfg 51 51 !!---------------------------------------------------------------------- 52 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information53 52 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 54 53 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 56 55 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 57 56 ! 58 INTEGER :: ios , ii! Local integer57 INTEGER :: ios ! Local integer 59 58 !! 60 59 NAMELIST/namusr_def/ rn_dx, rn_dz 61 60 !!---------------------------------------------------------------------- 62 61 ! 63 ii = 164 !65 62 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 66 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)64 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 68 65 ! 69 WRITE( ldnam(:), namusr_def )66 WRITE( numond, namusr_def ) 70 67 ! 71 68 ! … … 79 76 ! 80 77 ! ! control print 81 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 182 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 183 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 184 WRITE( ldtxt(ii),*) ' Namelist namusr_def : LOCK_EXCHANGE test case' ; ii = ii + 185 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 186 WRITE( ldtxt(ii),*) ' vertical resolution rn_dz = ', rn_dz, ' meters' ; ii = ii + 187 WRITE( ldtxt(ii),*) ' LOCK_EXCHANGE domain = 64 km x 3 grid-points x 20 m' ; ii = ii + 188 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 189 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 190 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 178 WRITE(numout,*) ' ' 79 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 80 WRITE(numout,*) '~~~~~~~~~~~ ' 81 WRITE(numout,*) ' Namelist namusr_def : LOCK_EXCHANGE test case' 82 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 83 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' meters' 84 WRITE(numout,*) ' LOCK_EXCHANGE domain = 64 km x 3 grid-points x 20 m' 85 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 86 WRITE(numout,*) ' jpjglo = ', kpj 87 WRITE(numout,*) ' jpkglo = ', kpk 91 88 ! 92 89 ! ! Set the lateral boundary condition of the global domain 93 90 kperio = 0 ! LOCK_EXCHANGE configuration : closed domain 94 91 ! 95 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 196 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 197 WRITE( ldtxt(ii),*) ' closed jperio = ', kperio ; ii = ii + 192 WRITE(numout,*) ' ' 93 WRITE(numout,*) ' Lateral boundary condition of the global domain' 94 WRITE(numout,*) ' closed jperio = ', kperio 98 95 ! 99 96 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/OVERFLOW/MY_SRC/usrdef_nam.F90
r10074 r11317 39 39 CONTAINS 40 40 41 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )41 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 42 42 !!---------------------------------------------------------------------- 43 43 !! *** ROUTINE dom_nam *** … … 51 51 !! ** input : - namusr_def namelist found in namelist_cfg 52 52 !!---------------------------------------------------------------------- 53 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information54 53 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 55 54 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 57 56 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 58 57 ! 59 INTEGER :: ios , ii! Local integer58 INTEGER :: ios ! Local integer 60 59 !! 61 60 NAMELIST/namusr_def/ ln_zco, ln_zps, ln_sco, rn_dx, rn_dz 62 61 !!---------------------------------------------------------------------- 63 62 ! 64 ii = 165 !66 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 67 64 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 68 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 69 66 ! 70 WRITE( ldnam(:), namusr_def )67 WRITE( numond, namusr_def ) 71 68 ! 72 69 cd_cfg = 'OVERFLOW' ! name & resolution (not used) … … 79 76 ! 80 77 ! ! control print 81 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 182 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 183 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 184 WRITE( ldtxt(ii),*) ' Namelist namusr_def : OVERFLOW test case' ; ii = ii + 185 WRITE( ldtxt(ii),*) ' type of vertical coordinate : ' ; ii = ii + 186 WRITE( ldtxt(ii),*) ' z-coordinate flag ln_zco = ', ln_zco ; ii = ii + 187 WRITE( ldtxt(ii),*) ' z-partial-step coordinate flag ln_zps = ', ln_zps ; ii = ii + 188 WRITE( ldtxt(ii),*) ' s-coordinate flag ln_sco = ', ln_sco ; ii = ii + 189 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 190 WRITE( ldtxt(ii),*) ' vertical resolution rn_dz = ', rn_dz, ' meters' ; ii = ii + 191 WRITE( ldtxt(ii),*) ' OVERFLOW domain = 200 km x 3 grid-points x 2000 m' ; ii = ii + 192 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 193 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 194 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 178 WRITE(numout,*) ' ' 79 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 80 WRITE(numout,*) '~~~~~~~~~~~ ' 81 WRITE(numout,*) ' Namelist namusr_def : OVERFLOW test case' 82 WRITE(numout,*) ' type of vertical coordinate : ' 83 WRITE(numout,*) ' z-coordinate flag ln_zco = ', ln_zco 84 WRITE(numout,*) ' z-partial-step coordinate flag ln_zps = ', ln_zps 85 WRITE(numout,*) ' s-coordinate flag ln_sco = ', ln_sco 86 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 87 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' meters' 88 WRITE(numout,*) ' OVERFLOW domain = 200 km x 3 grid-points x 2000 m' 89 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 90 WRITE(numout,*) ' jpjglo = ', kpj 91 WRITE(numout,*) ' jpkglo = ', kpk 95 92 ! 96 93 ! ! Set the lateral boundary condition of the global domain 97 94 kperio = 0 ! OVERFLOW configuration : close basin 98 95 ! 99 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1100 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1101 WRITE( ldtxt(ii),*) ' OVERFLOW : closed basin jperio = ', kperio ; ii = ii + 196 WRITE(numout,*) ' ' 97 WRITE(numout,*) ' Lateral boundary condition of the global domain' 98 WRITE(numout,*) ' OVERFLOW : closed basin jperio = ', kperio 102 99 ! 103 100 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/VORTEX/MY_SRC/domvvl.F90
r10572 r11317 994 994 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist : 995 995 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 996 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' , lwp)996 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 997 997 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run 998 998 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 999 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' , lwp)999 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) 1000 1000 IF(lwm) WRITE ( numond, nam_vvl ) 1001 1001 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/VORTEX/MY_SRC/usrdef_nam.F90
r10074 r11317 40 40 CONTAINS 41 41 42 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )42 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 43 43 !!---------------------------------------------------------------------- 44 44 !! *** ROUTINE dom_nam *** … … 52 52 !! ** input : - namusr_def namelist found in namelist_cfg 53 53 !!---------------------------------------------------------------------- 54 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information55 54 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 56 55 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 58 57 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 59 58 ! 60 INTEGER :: ios , ii! Local integer59 INTEGER :: ios ! Local integer 61 60 REAL(wp):: zlx, zly, zh ! Local scalars 62 61 !! … … 64 63 !!---------------------------------------------------------------------- 65 64 ! 66 ii = 167 !68 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 69 66 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 70 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 71 68 ! 72 69 #if defined key_agrif … … 80 77 #endif 81 78 ! 82 WRITE( ldnam(:), namusr_def )79 WRITE( numond, namusr_def ) 83 80 ! 84 81 cd_cfg = 'VORTEX' ! name & resolution (not used) … … 100 97 zh = (kpk-1)*rn_dz 101 98 ! ! control print 102 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1103 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1104 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1105 WRITE( ldtxt(ii),*) ' Namelist namusr_def : VORTEX test case' ; ii = ii + 1106 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' m' ; ii = ii + 1107 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dy = ', rn_dy, ' m' ; ii = ii + 1108 WRITE( ldtxt(ii),*) ' vertical resolution rn_dz = ', rn_dz, ' m' ; ii = ii + 1109 WRITE( ldtxt(ii),*) ' VORTEX domain: ' ; ii = ii + 1110 WRITE( ldtxt(ii),*) ' LX [km]: ', zlx ; ii = ii + 1111 WRITE( ldtxt(ii),*) ' LY [km]: ', zly ; ii = ii + 1112 WRITE( ldtxt(ii),*) ' H [m] : ', zh ; ii = ii + 1113 WRITE( ldtxt(ii),*) ' Reference latitude rn_ppgphi0 = ', rn_ppgphi0 ; ii = ii + 199 WRITE(numout,*) ' ' 100 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 101 WRITE(numout,*) '~~~~~~~~~~~ ' 102 WRITE(numout,*) ' Namelist namusr_def : VORTEX test case' 103 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' m' 104 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' m' 105 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' m' 106 WRITE(numout,*) ' VORTEX domain: ' 107 WRITE(numout,*) ' LX [km]: ', zlx 108 WRITE(numout,*) ' LY [km]: ', zly 109 WRITE(numout,*) ' H [m] : ', zh 110 WRITE(numout,*) ' Reference latitude rn_ppgphi0 = ', rn_ppgphi0 114 111 ! 115 112 ! ! Set the lateral boundary condition of the global domain 116 113 kperio = 0 ! VORTEX configuration : closed basin 117 114 ! 118 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 1119 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1120 WRITE( ldtxt(ii),*) ' VORTEX : closed basin jperio = ', kperio ; ii = ii + 1115 WRITE(numout,*) ' ' 116 WRITE(numout,*) ' Lateral boundary condition of the global domain' 117 WRITE(numout,*) ' VORTEX : closed basin jperio = ', kperio 121 118 ! 122 119 END SUBROUTINE usr_def_nam -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/WAD/MY_SRC/bdyini.F90
r10425 r11317 79 79 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries 80 80 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist' , lwp)81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist' ) 82 82 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 83 83 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' , lwp)84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) 85 85 IF(lwm) WRITE ( numond, nambdy ) 86 86 … … 423 423 ! keep full control of the configuration namelist 424 424 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 425 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' , lwp)425 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 426 426 IF(lwm) WRITE ( numond, nambdy_index ) 427 427 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/WAD/MY_SRC/usrdef_nam.F90
r10074 r11317 39 39 CONTAINS 40 40 41 SUBROUTINE usr_def_nam( ldtxt, ldnam,cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )41 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 42 42 !!---------------------------------------------------------------------- 43 43 !! *** ROUTINE dom_nam *** … … 51 51 !! ** input : - namusr_def namelist found in namelist_cfg 52 52 !!---------------------------------------------------------------------- 53 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt, ldnam ! stored print information54 53 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 55 54 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 57 56 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 58 57 ! 59 INTEGER :: ios , ii! Local integer58 INTEGER :: ios ! Local integer 60 59 !! 61 60 NAMELIST/namusr_def/ rn_dx, rn_dz, nn_wad_test 62 61 !!---------------------------------------------------------------------- 63 62 ! 64 ii = 165 !66 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) 67 64 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 68 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' , .TRUE.)65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 69 66 ! 70 WRITE( ldnam(:), namusr_def )67 WRITE( numond, namusr_def ) 71 68 ! 72 69 ! … … 81 78 ! 82 79 ! ! control print 83 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 184 WRITE( ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 185 WRITE( ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 186 WRITE( ldtxt(ii),*) ' Namelist namusr_def : WAD_TEST_CASES test case' ; ii = ii + 187 WRITE( ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 188 WRITE( ldtxt(ii),*) ' vertical resolution rn_dz = ', rn_dz, ' meters' ; ii = ii + 189 WRITE( ldtxt(ii),*) ' WAD_TEST_CASES domain = 52 km x 34 km x 10 m' ; ii = ii + 190 WRITE( ldtxt(ii),*) ' resulting global domain size : jpiglo = ', kpi ; ii = ii + 191 WRITE( ldtxt(ii),*) ' jpjglo = ', kpj ; ii = ii + 192 WRITE( ldtxt(ii),*) ' jpkglo = ', kpk ; ii = ii + 180 WRITE(numout,*) ' ' 81 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 82 WRITE(numout,*) '~~~~~~~~~~~ ' 83 WRITE(numout,*) ' Namelist namusr_def : WAD_TEST_CASES test case' 84 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 85 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' meters' 86 WRITE(numout,*) ' WAD_TEST_CASES domain = 52 km x 34 km x 10 m' 87 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 88 WRITE(numout,*) ' jpjglo = ', kpj 89 WRITE(numout,*) ' jpkglo = ', kpk 93 90 ! 94 91 ! ! Set the lateral boundary condition of the global domain … … 96 93 IF( nn_wad_test == 8 ) kperio = 7 ! North-South cyclic test 97 94 ! 98 WRITE( ldtxt(ii),*) ' ' ; ii = ii + 199 WRITE( ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1100 WRITE( ldtxt(ii),*) ' closed jperio = ', kperio ; ii = ii + 195 WRITE(numout,*) ' ' 96 WRITE(numout,*) ' Lateral boundary condition of the global domain' 97 WRITE(numout,*) ' closed jperio = ', kperio 101 98 ! 102 99 END SUBROUTINE usr_def_nam
Note: See TracChangeset
for help on using the changeset viewer.