- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7822 r9019 37 37 USE domvvl ! variable volume 38 38 USE c1d ! 1D configuration 39 USE domc1d ! 1D configuration: column location40 39 USE dyncor_c1d ! 1D configuration: Coriolis term (cor_c1d routine) 41 40 USE wet_dry ! wetting and drying … … 45 44 USE lbclnk ! ocean lateral boundary condition (or mpp link) 46 45 USE lib_mpp ! distributed memory computing library 47 USE wrk_nemo ! Memory Allocation48 46 USE timing ! Timing 49 47 … … 83 81 !!---------------------------------------------------------------------- 84 82 ! 85 IF( nn_timing == 1) CALL timing_start('dom_init')83 IF( ln_timing ) CALL timing_start('dom_init') 86 84 ! 87 85 IF(lwp) THEN ! Ocean domain Parameters (control print) … … 98 96 WRITE(numout,cform) ' ' ,' jpij : ', jpij 99 97 WRITE(numout,*) ' mpp local domain info (mpp):' 100 WRITE(numout,*) ' jpni : ', jpni, ' jpreci : ', jpreci101 WRITE(numout,*) ' jpnj : ', jpnj, ' jprecj : ', jprecj98 WRITE(numout,*) ' jpni : ', jpni, ' nn_hls : ', nn_hls 99 WRITE(numout,*) ' jpnj : ', jpnj, ' nn_hls : ', nn_hls 102 100 WRITE(numout,*) ' jpnij : ', jpnij 103 101 WRITE(numout,*) ' lateral boundary of the Global domain : jperio = ', jperio … … 119 117 ENDIF 120 118 ! 121 !122 !!gm This should be removed with the new configuration interface123 IF( lk_c1d .AND. ln_c1d_locpt ) CALL dom_c1d( rn_lat1d, rn_lon1d )124 !!gm end125 !126 119 ! !== Reference coordinate system ==! 127 120 ! … … 199 192 IF( ln_write_cfg ) CALL cfg_write ! create the configuration file 200 193 ! 201 IF( nn_timing == 1) CALL timing_stop('dom_init')194 IF( ln_timing ) CALL timing_stop('dom_init') 202 195 ! 203 196 END SUBROUTINE dom_init … … 246 239 IF( nn_print >= 1 ) THEN 247 240 WRITE(numout,*) 248 WRITE(numout,*) ' conversion local ==> global i-index domain '241 WRITE(numout,*) ' conversion local ==> global i-index domain (mig)' 249 242 WRITE(numout,25) (mig(ji),ji = 1,jpi) 250 243 WRITE(numout,*) 251 244 WRITE(numout,*) ' conversion global ==> local i-index domain' 252 WRITE(numout,*) ' starting index '245 WRITE(numout,*) ' starting index (mi0)' 253 246 WRITE(numout,25) (mi0(ji),ji = 1,jpiglo) 254 WRITE(numout,*) ' ending index '247 WRITE(numout,*) ' ending index (mi1)' 255 248 WRITE(numout,25) (mi1(ji),ji = 1,jpiglo) 256 249 WRITE(numout,*) 257 WRITE(numout,*) ' conversion local ==> global j-index domain '250 WRITE(numout,*) ' conversion local ==> global j-index domain (mjg)' 258 251 WRITE(numout,25) (mjg(jj),jj = 1,jpj) 259 252 WRITE(numout,*) 260 253 WRITE(numout,*) ' conversion global ==> local j-index domain' 261 WRITE(numout,*) ' starting index '254 WRITE(numout,*) ' starting index (mj0)' 262 255 WRITE(numout,25) (mj0(jj),jj = 1,jpjglo) 263 WRITE(numout,*) ' ending index '256 WRITE(numout,*) ' ending index (mj1)' 264 257 WRITE(numout,25) (mj1(jj),jj = 1,jpjglo) 265 258 ENDIF … … 593 586 ! ! ============================= ! 594 587 ! 595 clnam = 'domcfg_out'! filename (configuration information)588 clnam = cn_domcfg_out ! filename (configuration information) 596 589 CALL iom_open( TRIM(clnam), inum, ldwrt = .TRUE., kiolib = jprstlib ) 597 590
Note: See TracChangeset
for help on using the changeset viewer.