Changeset 3593 for branches/2012/dev_CMCC_2012/NEMOGCM/NEMO/OPA_SRC/SBC

Timestamp:

2012-11-19T12:48:28+01:00 (12 years ago)

Author:

vichi

Message:

Add in branch 2012/dev_CMCC_2012 changes from dev_r3365_CMCC1_BDYOBCopt & dev_r3379_CMCC6_topbfm, see ticket 1002

Location:

branches/2012/dev_CMCC_2012/NEMOGCM/NEMO/OPA_SRC/SBC

Files:

• fldread.F90 (modified) (1 diff)
• sbcrnf.F90 (modified) (1 diff)

branches/2012/dev_CMCC_2012/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -831 +831 @@
          IF( LEN( TRIM(sdf_n(jf)%wname) ) > 0 )   sdf(jf)%wgtname = TRIM( cdir )//TRIM( sdf_n(jf)%wname )
          sdf(jf)%vcomp   = sdf_n(jf)%vcomp
+         sdf(jf)%rotn    = .FALSE.
       END DO
 

branches/2012/dev_CMCC_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -58 +58 @@
    REAL(wp) ::   r1_rau0   ! = 1 / rau0 
 
-   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_rnf       ! structure: river runoff (file information, fields read)
-   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_s_rnf     ! structure: river runoff salinity (file information, fields read)  
-   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_t_rnf     ! structure: river runoff temperature (file information, fields read)  
+   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_rnf       ! structure: river runoff (file information, fields read)
+   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_s_rnf     ! structure: river runoff salinity (file information, fields read)  
+   TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_t_rnf     ! structure: river runoff temperature (file information, fields read)  
  
    !! * Substitutions