Changeset 4607
- Timestamp:
- 2014-03-31T12:03:13+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4508 r4607 59 59 WRITE(numout,*) '~~~~~~~~~~~ ' 60 60 ENDIF 61 ! 62 ! When Diurnal cycle, core bulk and LIM2 are activated, 63 ! a daily mean qsr is computed for tracer/biogeochemistery model ! 64 IF( ltrcdm2dc )THEN ; ltrcdm2dc_ice = .TRUE. 65 ELSE ; ltrcdm2dc_ice = .FALSE. 66 ENDIF 61 67 ! ! Allocate the ice arrays 62 68 ierr = ice_alloc_2 () ! ice variables … … 77 83 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 78 84 CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 79 80 ! When Diurnal cycle, core bulk and LIM2 are activated,81 ! a daily mean qsr is computed for tracer/biogeochemistery model !82 IF( ltrcdm2dc ) ltrcdm2dc_ice = .TRUE.83 85 84 86 ! ! Open the namelist file -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4365 r4607 154 154 #endif 155 155 ! 156 #if defined key_top && ! defined key_offline 157 ltrcdm2dc = (ln_dm2dc .AND. ln_blk_core .AND. nn_ice==2) 158 IF( ltrcdm2dc )THEN 159 IF(lwp)THEN 160 WRITE(numout,*)"analytical diurnal cycle, core bulk formulation and LIM2 use: " 161 WRITE(numout,*)"Diurnal cycle on physics but not in passive tracers" 162 ENDIF 163 ENDIF 164 #else 165 ltrcdm2dc = .FALSE. 166 #endif 167 168 ! 156 169 ! ! allocate sbc arrays 157 170 IF( sbc_oce_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_oce arrays' ) -
trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r4306 r4607 71 71 CALL top_alloc() ! allocate TOP arrays 72 72 73 IF( ln_dm2dc .AND. ln_blk_core .AND. nn_ice==2 )THEN 74 ! When Diurnal cycle, core bulk and LIM2 are activated, 75 ! a daily mean qsr is computed for tracer/biogeochemistery model 76 CALL ctl_warn( ' Diurnal cycle on physics but not in PISCES or LOBSTER ' ) 77 ltrcdm2dc = .TRUE. 78 ENDIF 73 #if defined key_offline 74 ltrcdm2dc = .FALSE. 75 #endif 76 77 IF( ltrcdm2dc )CALL ctl_warn( ' Diurnal cycle on physics but not in PISCES or LOBSTER ' ) 79 78 80 79 IF( nn_cla == 1 ) &
Note: See TracChangeset
for help on using the changeset viewer.