- Timestamp:
- 2020-12-03T20:14:08+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13787_doc_latex_recovery
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13787_doc_latex_recovery
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13559sette10 ^/utils/CI/sette_wave@13990 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/SAS/nemogcm.F90
r13558 r14066 34 34 USE diu_layers ! diurnal bulk SST and coolskin 35 35 USE step_diu ! diurnal bulk SST timestepping (called from here if run offline) 36 USE icb_oce ! icebergs 36 37 ! 37 38 USE prtctl ! Print control … … 215 216 !!---------------------------------------------------------------------- 216 217 ! 217 IF( lk_oasis ) THEN ; cxios_context = 'sas' 218 ELSE ; cxios_context = 'nemo' 218 IF( lk_oasis ) THEN ; cxios_context = 'sas' ! when coupling SAS to OCE 219 ELSE ; cxios_context = 'nemo' ! 219 220 ENDIF 220 221 nn_hls = 1 222 ! 223 l_SAS = .TRUE. ! used in domain:dom_nam 221 224 ! 222 225 ! !-------------------------------------------------! … … 374 377 CALL Agrif_Declare_Var_ini ! " " " " " DOM 375 378 #endif 376 CALL dom_init( Nbb, Nnn, Naa , 'SAS') ! Domain379 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 377 380 IF( sn_cfctl%l_prtctl ) & 378 381 & CALL prt_ctl_init ! Print control … … 393 396 ! ==> 394 397 CALL icb_init( rn_Dt, nit000) ! initialise icebergs instance 398 399 ! compatibility check 400 IF( ln_icebergs .AND. ln_M2016 ) THEN 401 IF( lwp ) WRITE(numout,*) ' ==>>> ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)' 402 CALL ctl_stop('ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)') 403 END IF 395 404 ! 396 405 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA
Note: See TracChangeset
for help on using the changeset viewer.