Changeset 2402
- Timestamp:
- 2010-11-17T17:14:31+01:00 (13 years ago)
- Location:
- branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r2287 r2402 150 150 IF( ioptio /= 1 ) CALL ctl_stop( 'Choose ONE advection scheme in namelist namtrc_adv' ) 151 151 152 IF( n_cla == 1 .AND. .NOT. ln_trcadv_cen2 ) &153 & CALL ctl_stop( 'cross-land advection only with 2nd order advection scheme' )154 155 152 ! ! Set nadv 156 153 IF( ln_trcadv_cen2 ) nadv = 1 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r2364 r2402 1143 1143 ENDIF 1144 1144 1145 IF( ( lk_trdmld_trc ) .AND. ( n_cla == 1 ) ) THEN1146 WRITE(numout,cform_war)1147 WRITE(numout,*) ' You set n_cla = 1. Note that the Mixed-Layer diagnostics '1148 WRITE(numout,*) ' are not exact along the corresponding straits. '1149 nwarn = nwarn + 11150 ENDIF1151 1152 1153 1145 ! * Debugging information * 1154 1146 IF( lldebug ) THEN -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r2317 r2402 188 188 189 189 #endif 190 USE lib_mpp , ONLY : lk_mpp => lk_mpp !: Mpp flag191 192 USE dom_oce , ONLY : n _cla => n_cla!: flag (0/1) for cross land advection190 USE lib_mpp , ONLY : lk_mpp => lk_mpp !: Mpp flag 191 192 USE dom_oce , ONLY : nn_cla => nn_cla !: flag (0/1) for cross land advection 193 193 194 194 !* surface fluxes * -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r2287 r2402 93 93 94 94 IF( ln_dm2dc .AND. ( lk_pisces .OR. lk_lobster ) ) & 95 & CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER ' ) 95 & CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER ' ) 96 97 IF( nn_cla == 1 ) & 98 & CALL ctl_stop( ' Cross Land Advection not yet implemented with passive tracer ; nn_cla must be 0' ) 96 99 97 100 IF( lk_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model
Note: See TracChangeset
for help on using the changeset viewer.