Ignore:
Timestamp:
2008-06-04T20:44:44+02:00 (13 years ago)
Author:
rblod
Message:

ctlopn with dimg diagnostics and additonnal stuff related to dimg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1037 r1057  
    3030   REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   buffer   ! Temporary buffer for exchange 
    3131 
    32    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read) 
    33    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read) 
     32   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read) 
     33   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read) 
    3434 
    3535   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   erp       !: evaporation damping                          [kg/m2/s] 
Note: See TracChangeset for help on using the changeset viewer.