Changeset 13233 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zpoc.F90

Timestamp:

2020-07-02T20:34:16+02:00 (4 years ago)

Author:

aumont

Message:

update of the PISCES comments

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zpoc.F90 (modified) (4 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zpoc.F90

@@ -89 +89 @@
       solgoc = 0.04/ 2.56 * 1./ ( 1.-50**(-0.04) )
 
-      ! Initialisation of temporary arrys
+      ! Initialisation of temporary arrays
       IF( ln_p4z ) THEN
          zremipoc(:,:,:) = xremip
@@ -419 +419 @@
               DO ji = 1, jpi
                  IF (tmask(ji,jj,jk) == 1.) THEN
-                    ! POC disaggregation by bacterial activity. It is a function
+                    ! POC solubilisation by bacterial activity. It is a function
                     ! of the mean lability and of temperature 
                     ! ----------------------------------------------------------
@@ -538 +538 @@
       ALLOCATE( alphan(jcpoc) , reminp(jcpoc) , alphap(jpi,jpj,jpk,jcpoc) )
       !
-      IF (jcpoc > 1) THEN
+      IF (jcpoc > 1) THEN  ! Case when more than one lability class is used
          !
          remindelta = LOG(4. * 1000. ) / REAL(jcpoc-1, wp)
@@ -562 +562 @@
          reminp(jcpoc) = reminp(jcpoc) * xremip / alphan(jcpoc)
 
-      ELSE
+      ELSE  ! Only one lability class is used
          alphan(jcpoc) = 1.
          reminp(jcpoc) = xremip