Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
r6140 r7646 57 57 IF(lwp) THEN ! control print 58 58 WRITE(numout,*) 59 WRITE(numout,*) ' 60 WRITE(numout,*) ' ~~~~~~~~~~'59 WRITE(numout,*) 'trd_init : Momentum/Tracers trends' 60 WRITE(numout,*) '~~~~~~~~' 61 61 WRITE(numout,*) ' Namelist namtrd : set trends parameters' 62 62 WRITE(numout,*) ' global domain averaged dyn & tra trends ln_glo_trd = ', ln_glo_trd … … 90 90 !!gm end 91 91 ! 92 IF( .NOT.ln_linssh .AND. ( l_trdtra .OR. l_trddyn ) ) CALL ctl_stop( 'trend diagnostics with variable volume not validated' )92 ! IF( .NOT.ln_linssh .AND. ( l_trdtra .OR. l_trddyn ) ) CALL ctl_stop( 'trend diagnostics with variable volume not validated' ) 93 93 94 94 !!gm : Potential BUG : 3D output only for vector invariant form! add a ctl_stop or code the flux form case
Note: See TracChangeset
for help on using the changeset viewer.