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

Changeset 8151


Ignore:
Timestamp:
2017-06-08T08:58:23+02:00 (7 years ago)
Author:
vancop
Message:

SIMIP outputs, phase 2, commit#2

Location:
branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r8150 r8151  
    469469      ALLOCATE( sist   (jpi,jpj) , t_bo   (jpi,jpj) ,                                           & 
    470470         &      frld   (jpi,jpj) , pfrld  (jpi,jpj) , phicif (jpi,jpj) ,                        & 
    471          &      wfx_snw(jpi,jpj) , wfx_snw_dyn(jpi,jpj), wfx_snw_sum(jpi,jpj)                   & 
     471         &      wfx_snw(jpi,jpj) , wfx_snw_dyn(jpi,jpj), wfx_snw_sum(jpi,jpj) ,                 & 
    472472         &      wfx_ice(jpi,jpj) , wfx_sub(jpi,jpj) ,                                           & 
    473473         &      wfx_bog(jpi,jpj) , wfx_dyn(jpi,jpj) , wfx_bom(jpi,jpj) , wfx_sum(jpi,jpj) ,     & 
  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

    r8150 r8151  
    655655      CALL lbc_lnk_multi( diag_sig1   , 'T',  1., diag_sig2   , 'T',  1., & 
    656656                 &        diag_dssh_dx, 'U', -1., diag_dssh_dy, 'V', -1., & 
    657                  &        diag_corstrx, 'U', -1., diag_corstry, 'V', -1.  &  
     657                 &        diag_corstrx, 'U', -1., diag_corstry, 'V', -1., &  
    658658                 &        diag_intstrx, 'U', -1., diag_intstry, 'V', -1.  ) 
    659659 
    660       CALL lbc_lnk( diag_dssh_dx, 'U', -1. ) 
    661       CALL lbc_lnk( diag_dssh_dy, 'V', -1. ) 
    662  
    663       CALL lbc_lnk( diag_intstrx, 'U', -1. ) 
    664       CALL lbc_lnk( diag_intstry, 'V', -1. ) 
    665  
    666       CALL lbc_lnk( diag_corstrx, 'U', -1. ) 
    667       CALL lbc_lnk( diag_corstry, 'V', -1. ) 
     660!     CALL lbc_lnk( diag_dssh_dx, 'U', -1. ) 
     661!     CALL lbc_lnk( diag_dssh_dy, 'V', -1. ) 
     662 
     663!     CALL lbc_lnk( diag_intstrx, 'U', -1. ) 
     664!     CALL lbc_lnk( diag_intstry, 'V', -1. ) 
     665 
     666!     CALL lbc_lnk( diag_corstrx, 'U', -1. ) 
     667!     CALL lbc_lnk( diag_corstry, 'V', -1. ) 
    668668             
    669669      ! 
  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r8150 r8151  
    7878         &         zui, zuj, zvi, zvj                                          ! strait addresses 
    7979 
    80       INTEGER  :: Nu, Nv                                                       ! passage size 
     80      INTEGER  :: Nu, Nv, &                                                    ! passage size 
     81                  i_strait                                                     ! strait number 
    8182 
    8283      INTEGER, DIMENSION(4)  :: ji0, ji1, jj0, jj1 
     
    388389         DO i_strait = 1, 4, 3 
    389390 
    390             DO ji = mi0(ji0), mi1(ji1) 
    391                jj = mj0(jj0) 
     391            DO ji = mi0( ji0(i_strait) ), mi1(ji1 (i_strait) ) 
     392               jj = mj0( jj0(i_strait) ) 
    392393    
    393394               zdiag_area_strait(i_strait) = zdiag_area_strait(i_strait)                                 &     ! --- ice area flux --- 
  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90

    r8150 r8151  
    161161      ! 
    162162      ALLOCATE( sprecip_1d (jpij) , frld_1d    (jpij) , at_i_1d    (jpij) ,                     & 
    163          &      fhtur_1d   (jpij) , wfx_snw_1d (jpij) , wfx_spr_1d (jpij) ,                    & 
     163         &      fhtur_1d   (jpij) , wfx_snw_1d (jpij) , wfx_snw_sum_1d(jpij), wfx_spr_1d (jpij) , & 
    164164         &      fhld_1d    (jpij) , wfx_sub_1d (jpij) , wfx_bog_1d (jpij) , wfx_bom_1d(jpij) ,  & 
    165165         &      wfx_sum_1d(jpij)  , wfx_sni_1d (jpij) , wfx_opw_1d (jpij) , wfx_res_1d(jpij) ,  & 
  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r8150 r8151  
    615615 
    616616      ! SIMIP diagnostics 
    617       diag_dms_sum(:,:)  = 0._wp ; diag_dms_dyn(:,:)  = 0._wp 
    618       diag_dmi_dyn(:,:)  = 0._wp ; 
     617      diag_dms_dyn(:,:)  = 0._wp ; diag_dmi_dyn(:,:)  = 0._wp 
    619618      diag_fc_bo(:,:)    = 0._wp ; diag_fc_su(:,:)    = 0._wp 
    620619       
Note: See TracChangeset for help on using the changeset viewer.