Changeset 13546 for NEMO/trunk/src/TOP

Timestamp:

2020-09-30T10:47:59+02:00 (4 years ago)

Author:

smasson

Message:

trunk: supress the use of undefined values, see #2535

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zsed.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zsed.F90

@@ -313 +313 @@
       ENDIF
       !
-      IF(sn_cfctl%l_prttrc) THEN  ! print mean trends (USEd for debugging)
+      IF(sn_cfctl%l_prttrc) THEN  ! print mean trneds (USEd for debugging)
          WRITE(charout, fmt="('sed ')")
          CALL prt_ctl_info( charout, cdcomp = 'top' )
@@ -366 +366 @@
       lk_sed = ln_sediment .AND. ln_sed_2way 
       !
+      nitrpot(:,:,jpk) = 0._wp   ! define last level for iom_put
+      !
    END SUBROUTINE p4z_sed_init