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 8240 – NEMO

Changeset 8240


Ignore:
Timestamp:
2017-06-28T18:09:58+02:00 (7 years ago)
Author:
clem
Message:

correct some bugs for compilation

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r8239 r8240  
    333333 
    334334   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   wfx_snw_dyn !: dynamical component of wfx_snw    [kg.m-2.s-1] 
    335    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   wfx_snw_sum !: surface melt component of wfx_snw [kg.m-2.s-1] 
    336335 
    337336   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   wfx_ice     !: ice-ocean mass exchange                   [kg.m-2.s-1] 
     
    546545         &      wfx_ice(jpi,jpj) , wfx_sub    (jpi,jpj) , wfx_ice_sub(jpi,jpj) , wfx_lam    (jpi,jpj) ,  & 
    547546         ! MV MP 2016 
    548          &      wfx_pnd(jpi,jpj) , wfx_snw_sum(jpi,jpj) ,                                       & 
     547         &      wfx_pnd(jpi,jpj) ,                                                              & 
    549548         ! END MV MP 2016 
    550549         &      wfx_bog(jpi,jpj) , wfx_dyn(jpi,jpj) , wfx_bom(jpi,jpj) , wfx_sum(jpi,jpj) ,     & 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r8239 r8240  
    325325      IF ( iom_use( "NH_icearea" ) .OR. iom_use( "NH_icevolu" ) .OR. iom_use( "NH_iceextt" ) )   THEN   ! NH integrated diagnostics 
    326326  
    327          WHERE( fcor > 0._wp ); zswi(:,:) = 1.0e-12 
     327         WHERE( ff_t > 0._wp ); zswi(:,:) = 1.0e-12 
    328328         ELSEWHERE            ; zswi(:,:) = 0. 
    329329         END WHERE  
    330330 
    331          zdiag_area_nh = glob_sum( at_i(:,:) * zswi(:,:) * e12t(:,:) ) 
    332          zdiag_volu_nh = glob_sum( vt_i(:,:) * zswi(:,:) * e12t(:,:) ) 
    333  
    334          WHERE( fcor > 0._wp .AND. at_i > 0.15 ); zswi(:,:) = 1.0e-12 
     331         zdiag_area_nh = glob_sum( at_i(:,:) * zswi(:,:) * e1e2t(:,:) ) 
     332         zdiag_volu_nh = glob_sum( vt_i(:,:) * zswi(:,:) * e1e2t(:,:) ) 
     333 
     334         WHERE( ff_t > 0._wp .AND. at_i > 0.15 ); zswi(:,:) = 1.0e-12 
    335335         ELSEWHERE                              ; zswi(:,:) = 0. 
    336336         END WHERE  
    337337 
    338          zdiag_extt_nh = glob_sum( zswi(:,:) * e12t(:,:) ) 
     338         zdiag_extt_nh = glob_sum( zswi(:,:) * e1e2t(:,:) ) 
    339339 
    340340         IF ( iom_use( "NH_icearea" ) ) CALL iom_put( "NH_icearea" ,  zdiag_area_nh  ) 
     
    346346      IF ( iom_use( "SH_icearea" ) .OR. iom_use( "SH_icevolu" ) .OR. iom_use( "SH_iceextt" ) )   THEN   ! SH integrated diagnostics 
    347347 
    348          WHERE( fcor < 0._wp ); zswi(:,:) = 1.0e-12;  
     348         WHERE( ff_t < 0._wp ); zswi(:,:) = 1.0e-12;  
    349349         ELSEWHERE            ; zswi(:,:) = 0. 
    350350         END WHERE  
    351351 
    352          zdiag_area_sh = glob_sum( at_i(:,:) * zswi(:,:) * e12t(:,:) )  
    353          zdiag_volu_sh = glob_sum( vt_i(:,:) * zswi(:,:) * e12t(:,:) ) 
    354  
    355          WHERE( fcor < 0._wp .AND. at_i > 0.15 ); zswi(:,:) = 1.0e-12 
     352         zdiag_area_sh = glob_sum( at_i(:,:) * zswi(:,:) * e1e2t(:,:) )  
     353         zdiag_volu_sh = glob_sum( vt_i(:,:) * zswi(:,:) * e1e2t(:,:) ) 
     354 
     355         WHERE( ff_t < 0._wp .AND. at_i > 0.15 ); zswi(:,:) = 1.0e-12 
    356356         ELSEWHERE                              ; zswi(:,:) = 0. 
    357357         END WHERE  
    358358 
    359          zdiag_extt_sh = glob_sum( zswi(:,:) * e12t(:,:) ) 
     359         zdiag_extt_sh = glob_sum( zswi(:,:) * e1e2t(:,:) ) 
    360360 
    361361         IF ( iom_use( "SH_icearea" ) ) CALL iom_put( "SH_icearea", zdiag_area_sh ) 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90

    r8239 r8240  
    162162         &      sfx_bri_1d (jpij) , sfx_bog_1d (jpij) , sfx_bom_1d (jpij) , sfx_sum_1d (jpij),  & 
    163163         &      sfx_sni_1d (jpij) , sfx_opw_1d (jpij) , sfx_res_1d (jpij) , sfx_sub_1d (jpij),  & 
    164          &      dsm_i_fl_1d(jpij) , dsm_i_gd_1d(jpij) , dsm_i_se_1d(jpij) ,                     &      
    165          &      dsm_i_si_1d(jpij) , hicol_1d    (jpij)                     , STAT=ierr(ii) ) 
     164         &      hicol_1d   (jpij)                     , STAT=ierr(ii) ) 
    166165      ! 
    167166      ii = ii + 1 
Note: See TracChangeset for help on using the changeset viewer.