- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg_exp.F90
r10888 r10986 61 61 ! 62 62 IF( kt == nit000 ) THEN 63 IF(lwp) WRITE(numout,*) 64 IF(lwp) WRITE(numout,*) 'dyn_spg_exp : surface pressure gradient trend' 65 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ (explicit free surface)' 63 IF(lwp) THEN 64 WRITE(numout,*) 65 WRITE(numout,*) 'dyn_spg_exp : surface pressure gradient trend' 66 WRITE(numout,*) '~~~~~~~~~~~ (explicit free surface)' 67 IF(lflush) CALL FLUSH(numout) 68 ENDIF 66 69 ! 67 70 spgu(:,:) = 0._wp ; spgv(:,:) = 0._wp 68 71 ! 69 IF( .NOT.ln_linssh .AND. lwp ) WRITE(numout,*) ' non linear free surface: spg is included in dynhpg' 72 IF( .NOT.ln_linssh .AND. lwp ) THEN 73 WRITE(numout,*) ' non linear free surface: spg is included in dynhpg' 74 IF(lflush) CALL FLUSH(numout) 75 ENDIF 70 76 ENDIF 71 77
Note: See TracChangeset
for help on using the changeset viewer.