New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9835 for branches – NEMO

Changeset 9835 for branches


Ignore:
Timestamp:
2018-06-22T14:54:12+02:00 (6 years ago)
Author:
antsia
Message:

set detect_missing_value back to true again in field_def.xml and remove unused variables

Location:
branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/CONFIG/SHARED/field_def.xml

    r9630 r9835  
    1111============================================================================================================ 
    1212    --> 
    13    <field_definition level="1" prec="4" operation="average" enabled=".TRUE." default_value="1.e20" detect_missing_value="false"> <!-- time step automaticaly defined --> 
     13   <field_definition level="1" prec="4" operation="average" enabled=".TRUE." default_value="1.e20" detect_missing_value="true"> <!-- time step automaticaly defined --> 
    1414 
    1515    <!--  
  • branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

    r9813 r9835  
    2424   USE lbclnk          ! communication 
    2525   USE iscplini        ! ice sheet coupling: initialisation 
    26    !USE iscplhsb        ! ice sheet coupling: conservation 
    2726   USE iscpldiv 
    2827 
     
    132131      !! 
    133132      INTEGER :: ji, jj, jk, iz          !! loop index 
    134       INTEGER :: jip1, jim1, jjp1, jjm1, jkp1, jkm1, jtop 
     133      INTEGER :: jip1, jim1, jjp1, jjm1, jkp1, jkm1 
    135134      !! 
    136       REAL(wp):: summsk, zsum, zsum1, zarea, zsumn, zsumb, zhdivdiff, zfp_ui, zfm_ui, zfp_vi, zfm_vi 
    137       REAL(wp):: zdz, zdzm1, zdzp1, zvol, zuflux_sum, zvflux_sum 
    138       REAL(wp),DIMENSION(2)::ztrdtsb 
     135      REAL(wp):: summsk, zsum, zsum1, zarea, zsumn, zsumb 
     136      REAL(wp):: zdz, zdzm1, zdzp1 
    139137      !! 
    140       REAL(wp), DIMENSION(:,:    ), POINTER :: zdmask , zdsmask, zvcorr, zucorr, zde3t 
     138      REAL(wp), DIMENSION(:,:    ), POINTER :: zdmask , zdsmask, zde3t 
    141139      REAL(wp), DIMENSION(:,:    ), POINTER :: zbub   , zbvb   , zbun  , zbvn 
    142140      REAL(wp), DIMENSION(:,:    ), POINTER :: zssh0  , zssh1, zhu1, zhv1 
    143       REAL(wp), DIMENSION(:,:    ), POINTER :: zsmask0, zsmask1, isfmask 
    144       REAL(wp), DIMENSION(:,:,:  ), POINTER :: ztmask0, ztmask1, ztrp, zuflux, zvflux, zhdiv, zhdiv2 
     141      REAL(wp), DIMENSION(:,:    ), POINTER :: zsmask0, zsmask1 
     142      REAL(wp), DIMENSION(:,:,:  ), POINTER :: ztmask0, ztmask1, ztrp 
    145143      REAL(wp), DIMENSION(:,:,:  ), POINTER :: zwmaskn, zwmaskb, ztmp3d 
    146144      REAL(wp), DIMENSION(:,:,:,:), POINTER :: zts0 
     
    150148      CALL wrk_alloc(jpi,jpj,jpk,2, zts0                                   ) 
    151149      CALL wrk_alloc(jpi,jpj,jpk,   ztmask0, ztmask1 , ztrp, ztmp3d        )  
    152       CALL wrk_alloc(jpi,jpj,jpk,   zwmaskn, zwmaskb, zuflux, zvflux, zhdiv, zhdiv2               )  
    153       CALL wrk_alloc(jpi,jpj,       zsmask0, zsmask1, isfmask                       )  
    154       CALL wrk_alloc(jpi,jpj,       zdmask , zdsmask, zvcorr, zucorr, zde3t)  
     150      CALL wrk_alloc(jpi,jpj,jpk,   zwmaskn, zwmaskb                       )  
     151      CALL wrk_alloc(jpi,jpj,       zsmask0, zsmask1                       )  
     152      CALL wrk_alloc(jpi,jpj,       zdmask , zdsmask, zde3t                )  
    155153      CALL wrk_alloc(jpi,jpj,       zbub   , zbvb    , zbun , zbvn         )  
    156154      CALL wrk_alloc(jpi,jpj,       zssh0  , zssh1, zhu1, zhv1             )  
     
    369367      CALL wrk_dealloc(jpi,jpj,jpk,2, zts0                                   ) 
    370368      CALL wrk_dealloc(jpi,jpj,jpk,   ztmask0, ztmask1 , ztrp                )  
    371       CALL wrk_dealloc(jpi,jpj,jpk,   zwmaskn, zwmaskb , ztmp3d, zuflux, zvflux, zhdiv, zhdiv2    )  
    372       CALL wrk_dealloc(jpi,jpj,       zsmask0, zsmask1, isfmask                     )  
    373       CALL wrk_dealloc(jpi,jpj,       zdmask , zdsmask, zvcorr, zucorr, zde3t)  
     369      CALL wrk_dealloc(jpi,jpj,jpk,   zwmaskn, zwmaskb , ztmp3d              )  
     370      CALL wrk_dealloc(jpi,jpj,       zsmask0, zsmask1                       )  
     371      CALL wrk_dealloc(jpi,jpj,       zdmask , zdsmask, zde3t                )  
    374372      CALL wrk_dealloc(jpi,jpj,       zbub   , zbvb    , zbun  , zbvn        )  
    375373      CALL wrk_dealloc(jpi,jpj,       zssh0  , zssh1  , zhu1 , zhv1          )  
Note: See TracChangeset for help on using the changeset viewer.