Changeset 12615 for NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
- Timestamp:
- 2020-03-26T16:18:49+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12254 r12615 2 2 !!====================================================================== 3 3 !! *** MODULE nemogcm *** 4 !! StandAlone Surface module : surface fluxes4 !! STATION_ASF (SAS meets C1D) 5 5 !!====================================================================== 6 6 !! History : 3.6 ! 2011-11 (S. Alderson, G. Madec) original code … … 19 19 !!---------------------------------------------------------------------- 20 20 USE step_oce ! module used in the ocean time stepping module (step.F90) 21 USE sbc_oce ! surface boundary condition: ocean #LB: rm?22 21 USE phycst ! physical constant (par_cst routine) 23 22 USE domain ! domain initialization (dom_init & dom_cfg routines) 24 23 USE closea ! treatment of closed seas (for ln_closea) 25 24 USE usrdef_nam ! user defined configuration 25 USE istate ! initial state setting (istate_init routine) 26 26 USE step, ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices 27 27 USE daymod ! calendar 28 28 USE restart ! open restart file 29 !LB:USE step ! NEMO time-stepping (stp routine)30 29 USE c1d ! 1D configuration 31 30 USE step_c1d ! Time stepping loop for the 1D configuration 32 USE sbcssm !33 31 ! 34 32 USE lib_mpp ! distributed memory computing … … 49 47 !!---------------------------------------------------------------------- 50 48 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 51 !! $Id: nemogcm.F90 1 1536 2019-09-11 13:54:18Z smasson$49 !! $Id: nemogcm.F90 12489 2020-02-28 15:55:11Z davestorkey $ 52 50 !! Software governed by the CeCILL license (see ./LICENSE) 53 51 !!---------------------------------------------------------------------- … … 84 82 ! !== time stepping ==! 85 83 ! !-----------------------! 84 ! 85 ! !== set the model time-step ==! 86 ! 86 87 istp = nit000 87 88 ! … … 106 107 ! 107 108 #if defined key_iomput 108 CALL xios_finalize ! end mpp communications with xios109 CALL xios_finalize ! end mpp communications with xios 109 110 #else 110 IF( lk_mpp ) THEN ; CALL mppstop ! end mpp communications 111 ENDIF 111 IF( lk_mpp ) CALL mppstop ! end mpp communications 112 112 #endif 113 113 ! … … 161 161 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 162 162 ! open reference and configuration namelist files 163 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm )164 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm )163 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 164 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 165 165 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 166 166 ! open /dev/null file to be able to supress output write easily 167 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )167 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 168 168 ! 169 169 ! !--------------------! … … 235 235 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 236 236 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 237 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) 237 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) 238 238 ! 239 239 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file … … 266 266 IF( ln_timing ) CALL timing_start( 'nemo_init') 267 267 ! 268 CALL phy_cst ! Physical constants269 CALL eos_init ! Equation of state268 CALL phy_cst ! Physical constants 269 CALL eos_init ! Equation of state 270 270 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 271 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain271 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 272 272 IF( sn_cfctl%l_prtctl ) & 273 273 & CALL prt_ctl_init ! Print control 274 275 IF( ln_rstart ) THEN ! Restart from a file 276 ! ! ------------------- 277 CALL rst_read( Nbb, Nnn ) ! Read the restart file 278 CALL day_init ! model calendar (using both namelist and restart infos) 279 ! 280 ELSE ! Start from rest 281 ! ! --------------- 282 numror = 0 ! define numror = 0 -> no restart file to read 283 neuler = 0 ! Set time-step indicator at nit000 (euler forward) 284 CALL day_init ! model calendar (using both namelist and restart infos) 285 ENDIF 286 ! 287 288 ! ! external forcing 289 CALL sbc_init( Nbb, Nnn, Naa ) ! surface boundary conditions (including sea-ice) 274 ! 275 276 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 277 278 ! ! external forcing 279 CALL sbc_init( Nbb, Nnn, Naa ) ! surface boundary conditions (including sea-ice) 290 280 291 281 ! … … 321 311 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 322 312 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 323 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 324 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax 325 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 326 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 313 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 314 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax 315 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 316 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 327 317 WRITE(numout,*) ' level of print nn_print = ', nn_print 328 318 WRITE(numout,*) ' Start i indice for SUM control nn_ictls = ', nn_ictls … … 439 429 !!---------------------------------------------------------------------- 440 430 ! 441 ierr = oce_alloc () ! ocean 431 ierr = oce_alloc () ! ocean 442 432 ierr = ierr + dia_wri_alloc() 443 433 ierr = ierr + dom_oce_alloc() ! ocean domain … … 448 438 END SUBROUTINE nemo_alloc 449 439 450 440 451 441 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto, for_all ) 452 442 !!---------------------------------------------------------------------- … … 479 469 !!====================================================================== 480 470 END MODULE nemogcm 471
Note: See TracChangeset
for help on using the changeset viewer.