Changeset 18 for trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90

Timestamp:

2004-02-17T09:36:18+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90

@@ -59 +59 @@
       USE blk_oce         ! bulk variable
       USE bulk            ! bulk module
+
       !! * arguments
       INTEGER, INTENT( in  ) ::   kt ! ocean time step
@@ -64 +65 @@
       !! * Local declarations      
       INTEGER , PARAMETER :: jpday  = 365, jpmois = 12
-      INTEGER                    :: ji,jj
-      INTEGER                    :: i15,iday, idy
-      INTEGER , DIMENSION(jpday) :: istep_n
-      INTEGER , DIMENSION(jpmois):: istep_c, istep_x
-      INTEGER                    :: itime
-      REAL(wp) ::  zdate0
-      REAL(wp), DIMENSION(jpi,jpj) ::   &
-         zsst,       &  ! ???
-         zlon    ,   &  ! ???
-         zlat           ! ???
-
-      REAL(wp), DIMENSION(jpk) ::   &
-         zlev           ! ???
-      REAL(wp) ::   zxy
-      INTEGER  :: ipi,ipj,ipk
-      INTEGER  :: iman,imois,imois2
+      INTEGER  ::   i15,iday, idy
+      INTEGER  ::   ipi,ipj,ipk
+      INTEGER  ::   iman,imois,imois2
+      INTEGER, DIMENSION(jpday) :: istep_n
+      INTEGER, DIMENSION(jpmois):: istep_c, istep_x
+      INTEGER  ::   itime
+      REAL(wp) ::   zdate0, zxy
+      REAL(wp), DIMENSION(jpi,jpj) ::   zlon, zlat   ! ???
+      REAL(wp), DIMENSION(jpk) ::   zlev           ! ???
       CHARACTER(len=45)  ::  &
          clname_n = 'NCEP_1d_0101_0112_tair.nc',   &