Changeset 14072 for NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (3 years ago)
- File:
-
- 1 edited
-
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90 (modified) (12 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r13286 r14072 30 30 USE step_c1d ! Time stepping loop for the 1D configuration 31 31 ! 32 USE prtctl ! Print control33 32 USE in_out_manager ! I/O manager 34 33 USE lib_mpp ! distributed memory computing … … 47 46 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 48 47 48 #if defined key_mpp_mpi 49 ! need MPI_Wtime 50 INCLUDE 'mpif.h' 51 #endif 52 49 53 !!---------------------------------------------------------------------- 50 54 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 51 !! $Id: nemogcm.F90 1 2489 2020-02-28 15:55:11Z davestorkey$55 !! $Id: nemogcm.F90 13286 2020-07-09 15:48:29Z smasson $ 52 56 !! Software governed by the CeCILL license (see ./LICENSE) 53 57 !!---------------------------------------------------------------------- … … 110 114 ! 111 115 #if defined key_iomput 112 116 CALL xios_finalize ! end mpp communications with xios 113 117 #else 114 118 IF( lk_mpp ) CALL mppstop ! end mpp communications … … 146 150 #if defined key_iomput 147 151 IF( Agrif_Root() ) THEN 148 152 CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm ) ! nemo local communicator given by xios 149 153 ENDIF 150 154 CALL mpp_start( ilocal_comm ) 151 155 #else 152 156 CALL mpp_start( ) 153 157 #endif 154 158 ! … … 163 167 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 164 168 ! open reference and configuration namelist files 165 166 169 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 170 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 167 171 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 168 172 ! open /dev/null file to be able to supress output write easily 169 173 IF( Agrif_Root() ) THEN 170 174 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 171 175 #ifdef key_agrif 172 176 ELSE 173 numnul = Agrif_Parent(numnul) 174 #endif 175 ENDIF 176 ! 177 numnul = Agrif_Parent(numnul) 178 #endif 179 ENDIF 177 180 ! !--------------------! 178 181 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp … … 215 218 WRITE(numout,*) " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 216 219 WRITE(numout,*) 220 221 ! Print the working precision to ocean.output 222 IF (wp == dp) THEN 223 WRITE(numout,*) "Working precision = double-precision" 224 ELSE 225 WRITE(numout,*) "Working precision = single-precision" 226 ENDIF 227 WRITE(numout,*) 217 228 ! 218 229 WRITE(numout,cform_aaa) ! Flag AAAAAAA … … 229 240 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 230 241 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 231 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) 242 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) 232 243 ! 233 244 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file … … 263 274 CALL eos_init ! Equation of state 264 275 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 265 CALL dom_init( Nbb, Nnn, Naa , "OPA") ! Domain276 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 266 277 IF( sn_cfctl%l_prtctl ) & 267 278 & CALL prt_ctl_init ! Print control 268 ! 269 279 270 280 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 271 281 272 ! ! external forcing 282 ! ! external forcing 273 283 CALL sbc_init( Nbb, Nnn, Naa ) ! surface boundary conditions (including sea-ice) 284 285 !#LB: 286 #if defined key_si3 287 IF(lwp) WRITE(numout,*) 'LOLO: nemo_init@nemogcm.F90: shape of fr_i ==>', SIZE(fr_i,1), SIZE(fr_i,2) 288 fr_i(:,:) = 0._wp 289 #endif 290 !#LB. 274 291 275 292 ! … … 302 319 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 303 320 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 304 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 305 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax 306 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 307 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 321 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 322 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax 323 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 324 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 308 325 WRITE(numout,*) ' timing by routine ln_timing = ', ln_timing 309 326 WRITE(numout,*) ' CFL diagnostics ln_diacfl = ', ln_diacfl … … 366 383 !!---------------------------------------------------------------------- 367 384 ! 368 ierr = oce_alloc () ! ocean 385 ierr = oce_alloc () ! ocean 369 386 ierr = ierr + dia_wri_alloc() 370 387 ierr = ierr + dom_oce_alloc() ! ocean domain … … 375 392 END SUBROUTINE nemo_alloc 376 393 377 394 378 395 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 379 396 !!---------------------------------------------------------------------- … … 399 416 !!====================================================================== 400 417 END MODULE nemogcm 401
Note: See TracChangeset
for help on using the changeset viewer.
