- Timestamp:
- 2013-07-02T15:20:13+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r3938 r3952 124 124 125 125 ! add ssh if not vvl 126 #if ndefkey_vvl126 #if ! defined key_vvl 127 127 zdiff_v2 = zdiff_v2 + zdiff_v1 128 128 zdiff_hc = zdiff_hc + glob_sum( zsurf(:,:) * ( sshn(:,:) * tsn(:,:,1,jp_tem) & … … 149 149 ENDDO 150 150 ! add ssh if not vvl 151 #if ndefkey_vvl151 #if ! defined key_vvl 152 152 z_v2 = z_v2 + z_v1 153 153 z_hc = z_hc + glob_sum( zsurf(:,:) * sshn(:,:) * tsn(:,:,1,jp_tem) ) … … 307 307 frc_t = 0._wp 308 308 frc_s = 0._wp 309 ENDIF 309 ENDIF 310 310 311 311 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file
Note: See TracChangeset
for help on using the changeset viewer.