Changeset 1678 for trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90

Timestamp:

2009-10-26T12:38:26+01:00 (15 years ago)

Author:

cetlod

Message:

Improve PISCES diagnostics for IPCC AR5 exercise, see ticket:567

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zopt.F90

@@ -240 +240 @@
       zw2d(:,:  ) =  heup(:,:  ) * tmask(:,:,1)
       zw3d(:,:,:) =  etot(:,:,:) * tmask(:,:,:)
-      IF( jnt == nrdttrc ) CALL iom_put( "heup", zw2d )               
+      IF( jnt == nrdttrc ) CALL iom_put( "Heup", zw2d )               
       IF( jnt == nrdttrc ) CALL iom_put( "PAR" , zw3d )
 # endif