- Timestamp:
- 2017-06-29T11:41:55+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r6793 r8243 335 335 IF( ln_varpar ) THEN 336 336 IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_par > 1 ) ) THEN 337 lspr = .false. 337 338 CALL fld_read( kt, 1, sf_par ) 339 lspr = .false. 338 340 par_varsw(:,:) = ( sf_par(1)%fnow(:,:,1) ) / 3.0 339 341 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.