Changeset 850 for branches/dev_001_GM

Timestamp:

2008-03-13T14:38:38+01:00 (16 years ago)

Author:

cetlod

Message:

include the USE of the PISCES main module in trcsms.F90 , see ticket:88

File:

• branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90 (modified) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90

@@ -21 +21 @@
    USE trcsed
    USE trcexp
+   USE p4zprg
 
    IMPLICIT NONE
@@ -92 +93 @@
       ! ------------------------
 
-      CALL p4zprg( kt )      ! main program of PISCES 
+      CALL p4z_prg( kt )      ! main program of PISCES 
 
 
@@ -107 +108 @@
 
       IF(ln_ctl) THEN      ! print mean trends (used for debugging)
-         WRITE(charout, FMT="('SMS')")
+         WRITE(charout, FMT="('sms ')")
          CALL prt_ctl_trc_info( charout )
-         CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm )
+         CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm )
       ENDIF
       !