Changeset 9559 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

Timestamp:

2018-05-07T12:47:23+02:00 (6 years ago)

Author:

cetlod

Message:

Minor corrections to compute PISCES chemical constant at every time-step rather than every day

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

@@ -71 +71 @@
         ALLOCATE( xnegtr(jpi,jpj,jpk) )
         !
-        CALL p4z_che                              ! initialize the chemical constants
-        !
-        IF( .NOT. ln_rsttr ) THEN  ;   CALL ahini_for_at(hi)   !  set PH at kt=nit000 
-        ELSE                       ;   CALL p4z_rst( nittrc000, 'READ' )  !* read or initialize all required fields 
+        IF( .NOT. ln_rsttr ) THEN
+            CALL p4z_che                              ! initialize the chemical constants
+            CALL ahini_for_at(hi)   !  set PH at kt=nit000
+        ELSE
+            CALL p4z_rst( nittrc000, 'READ' )  !* read or initialize all required fields
         ENDIF
         !
@@ -100 +101 @@
       ENDIF
       !
-      IF( ndayflxtr /= nday_year ) THEN      ! New days
-         !
-         ndayflxtr = nday_year
-
-         IF(lwp) write(numout,*)
-         IF(lwp) write(numout,*) ' New chemical constants and various rates for biogeochemistry at new day : ', nday_year
-         IF(lwp) write(numout,*) '~~~~~~'
-
-         CALL p4z_che              ! computation of chemical constants
-         CALL p4z_int( kt )        ! computation of various rates for biogeochemistry
-         !
-      ENDIF
-
+      CALL p4z_che              ! computation of chemical constants
+      CALL p4z_int( kt )        ! computation of various rates for biogeochemistry
+      !
       IF( ll_sbc ) CALL p4z_sbc( kt )   ! external sources of nutrients