Changeset 11776 for branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

Timestamp:

2019-10-23T17:39:22+02:00 (4 years ago)

Author:

jpalmier

Message:

debug 3

File:

• branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

@@ -439 +439 @@
                !! to ROSE if they need different values for different experiments)
           if ( jk .eq. 1 .and. nyear .gt. 2014 .and. nyear .lt. 2050 .and. &
-                   gphit(ji,jj) .ge .-60.0 .and. gphit(ji,jj) .le. 70.0 ) then
+                   gphit(ji,jj) .ge. -60.0 .and. gphit(ji,jj) .le. 70.0 ) then
                   f_geoeng_alk(ji,jj) = 1.17 / fse3t(ji,jj,jk)
                   fa_prod = fa_prod + f_geoeng_alk(ji,jj)