Changeset 3078 for branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2011-11-10T18:29:56+01:00 (13 years ago)

Author:

rfurner

Message:

ticket #885 small bug fix to bdydta, and changes to documentation and in-code comments

Location:

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC

Files:

• BDY/bdydta.F90 (modified) (1 diff)
• DOM/phycst.F90 (modified) (1 diff)

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -678 +678 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE bdy_dta( kt, jit )              ! Empty routine
+   SUBROUTINE bdy_dta( kt, jit, time_offset ) ! Empty routine
       INTEGER, INTENT( in )           ::   kt    
       INTEGER, INTENT( in ), OPTIONAL ::   jit   
+      INTEGER, INTENT( in ), OPTIONAL ::   time_offset
       WRITE(*,*) 'bdy_dta: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_dta

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90

@@ -164 +164 @@
          WRITE(numout,*) '          latent heat of fusion of fresh ice / snow = ', lfus    , ' J/kg'
          WRITE(numout,*) '          latent heat of subl.  of fresh ice / snow = ', lsub    , ' J/kg'
+#elif defined key_cice
+         WRITE(numout,*) '          latent heat of fusion of fresh ice / snow = ', lfus    , ' J/kg'
 #else
          WRITE(numout,*) '          density times specific heat for snow      = ', rcpsn   , ' J/m^3/K'