- Timestamp:
- 2020-12-02T18:22:24+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@13 559sette10 ^/utils/CI/sette@13795 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domain.F90
r13998 r14018 67 67 CONTAINS 68 68 69 SUBROUTINE dom_init( Kbb, Kmm, Kaa , cdstr)69 SUBROUTINE dom_init( Kbb, Kmm, Kaa ) 70 70 !!---------------------------------------------------------------------- 71 71 !! *** ROUTINE dom_init *** … … 83 83 !!---------------------------------------------------------------------- 84 84 INTEGER , INTENT(in) :: Kbb, Kmm, Kaa ! ocean time level indices 85 CHARACTER (len=*), INTENT(in) :: cdstr ! model: NEMO or SAS. Determines core restart variables86 85 ! 87 86 INTEGER :: ji, jj, jk, jt ! dummy loop indices … … 129 128 ! !== Reference coordinate system ==! 130 129 ! 131 CALL dom_glo ! global domain versus local domain132 CALL dom_nam ( cdstr )! read namelist ( namrun, namdom )130 CALL dom_glo ! global domain versus local domain 131 CALL dom_nam ! read namelist ( namrun, namdom ) 133 132 ! 134 133 CALL dom_hgr ! Horizontal mesh … … 175 174 ! 176 175 ! != ssh initialization 177 IF( cdstr /= 'SAS') THEN176 IF( .NOT.l_offline .AND. .NOT.l_SAS ) THEN 178 177 CALL ssh_init_rst( Kbb, Kmm, Kaa ) 178 ELSE 179 ssh(:,:,:) = 0._wp 179 180 ENDIF 180 181 ! … … 296 297 297 298 298 SUBROUTINE dom_nam ( cdstr )299 SUBROUTINE dom_nam 299 300 !!---------------------------------------------------------------------- 300 301 !! *** ROUTINE dom_nam *** … … 308 309 USE ioipsl 309 310 !! 310 CHARACTER (len=*), INTENT(in) :: cdstr ! model: NEMO or SAS. Determines core restart variables311 !312 311 INTEGER :: ios ! Local integer 313 312 REAL(wp):: zrdt … … 360 359 rDt = 2._wp * rn_Dt 361 360 r1_Dt = 1._wp / rDt 361 ! 362 IF( l_SAS .AND. .NOT.ln_linssh ) THEN 363 CALL ctl_warn( 'SAS requires linear ssh : force ln_linssh = T' ) 364 ln_linssh = .TRUE. 365 ENDIF 362 366 ! 363 367 #if defined key_qco … … 429 433 ! 430 434 ! !== Set parameters for restart reading using xIOS ==! 431 lwxios = .FALSE.432 435 ! 433 436 IF( TRIM(Agrif_CFixed()) == '0' ) THEN … … 436 439 nxioso = nn_wxios 437 440 ENDIF 438 !439 IF( lwxios ) THEN !* define names for restart write and set core output (restart.F90)440 CALL iom_set_rst_vars ( rst_wfields )441 CALL iom_set_rstw_core( cdstr )442 ENDIF443 !444 IF( cdstr == 'SAS' ) THEN !* reset namelist for SAS445 IF( lrxios ) THEN446 IF(lwp) WRITE(numout,*) 'Disable reading restart file using XIOS for SAS'447 lrxios = .FALSE.448 ENDIF449 ENDIF450 !451 441 ! !== Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler) 452 442 l_1st_euler = ln_1st_euler … … 459 449 ! 460 450 IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 ) THEN !- Check time-step consistency and force Euler restart if changed 461 CALL iom_get( numror, 'rdt', zrdt , ldxios = lrxios)451 CALL iom_get( numror, 'rdt', zrdt ) 462 452 IF( zrdt /= rn_Dt ) THEN 463 453 IF(lwp) WRITE( numout,*) … … 469 459 ENDIF 470 460 ! 471 IF( iom_varid( numror, 'sshb', ldstop = .FALSE. ) <= 0 ) THEN !- Check absence of one of the Kbb field (here sshb)472 ! ! (any Kbb field is missing ==> all Kbb fields are missing)461 IF( .NOT.l_SAS .AND. iom_varid( numror, 'sshb', ldstop = .FALSE. ) <= 0 ) THEN !- Check absence of one of the Kbb field (here sshb) 462 ! ! (any Kbb field is missing ==> all Kbb fields are missing) 473 463 IF( .NOT.l_1st_euler ) THEN 474 464 CALL ctl_warn('dom_nam : ssh at Kbb not found in restart files ', & … … 484 474 l_1st_euler = .TRUE. 485 475 ENDIF 486 487 476 ! 488 477 ! !== control of output frequency ==!
Note: See TracChangeset
for help on using the changeset viewer.