Changeset 88 for trunk/NEMO/OPA_SRC/cpl_oce.F90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/OPA_SRC/cpl_oce.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/cpl_oce.F90

@@ -234 +234 @@
       cpl_f_readflx,   &  !: coupler to ocean file name for flx.coupled
       cpl_f_readtau,   &  !: coupler to ocean file name for tau.coupled
-      cpl_f_writ   ,   &  !: ocean to coupler file name for stp_cmo
+      cpl_f_writ   ,   &  !: ocean to coupler file name for cpl_stp
       cpl_readflx  ,   &  !: coupler to ocean field name for flx.coupled
       cpl_readtau  ,   &  !: coupler to ocean field name for tau.coupled
-      cpl_writ            !: ocean to coupler field name for stp_cmo
+      cpl_writ            !: ocean to coupler field name for cpl_stp
 
   REAL(wp), DIMENSION(jpi,jpj) ::   &  !: