Changeset 1106 for trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

Timestamp:

2008-06-10T18:24:12+02:00 (16 years ago)

Author:

rblod

Message:

Correct diawri_dimg according to the new sbc, see ticket #159

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

@@ -30 +30 @@
    REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   buffer   ! Temporary buffer for exchange
 
-   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read)
-   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read)
+   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read)
+   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read)
 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   erp       !: evaporation damping                          [kg/m2/s]