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 7282 for branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 – NEMO

Ignore:
Timestamp:
2016-11-21T12:13:57+01:00 (7 years ago)
Author:
flavoni
Message:

update CNRS 2016 to trunk revision 7161

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r7277 r7282  
    153153      ! 
    154154         !       before        !          now          !       after         ! 
    155          ;  gdept_b = gdept_0  ;   gdept_n = gdept_0   !        ---          ! depth of grid-points 
    156          ;  gdepw_b = gdepw_0  ;   gdepw_n = gdepw_0   !        ---          ! 
    157          ;                     ;   gde3w_n = gde3w_0   !        ---          ! 
     155            gdept_b = gdept_0  ;   gdept_n = gdept_0   !        ---          ! depth of grid-points 
     156            gdepw_b = gdepw_0  ;   gdepw_n = gdepw_0   !        ---          ! 
     157                                   gde3w_n = gde3w_0   !        ---          ! 
    158158         !                                                                   
    159          ;    e3t_b =   e3t_0  ;     e3t_n =   e3t_0   ;   e3t_a =  e3t_0    ! scale factors 
    160          ;    e3u_b =   e3u_0  ;     e3u_n =   e3u_0   ;   e3u_a =  e3u_0    ! 
    161          ;    e3v_b =   e3v_0  ;     e3v_n =   e3v_0   ;   e3v_a =  e3v_0    ! 
    162          ;                     ;     e3f_n =   e3f_0   !        ---          ! 
    163          ;    e3w_b =   e3w_0  ;     e3w_n =   e3w_0   !        ---          ! 
    164          ;   e3uw_b =  e3uw_0  ;    e3uw_n =  e3uw_0   !        ---          ! 
    165          ;   e3vw_b =  e3vw_0  ;    e3vw_n =  e3vw_0   !        ---          ! 
     159              e3t_b =   e3t_0  ;     e3t_n =   e3t_0   ;   e3t_a =  e3t_0    ! scale factors 
     160              e3u_b =   e3u_0  ;     e3u_n =   e3u_0   ;   e3u_a =  e3u_0    ! 
     161              e3v_b =   e3v_0  ;     e3v_n =   e3v_0   ;   e3v_a =  e3v_0    ! 
     162                                     e3f_n =   e3f_0   !        ---          ! 
     163              e3w_b =   e3w_0  ;     e3w_n =   e3w_0   !        ---          ! 
     164             e3uw_b =  e3uw_0  ;    e3uw_n =  e3uw_0   !        ---          ! 
     165             e3vw_b =  e3vw_0  ;    e3vw_n =  e3vw_0   !        ---          ! 
    166166         ! 
    167167         z1_hu_0(:,:) = ssumask(:,:) / ( hu_0(:,:) + 1._wp - ssumask(:,:) )     ! _i mask due to ISF 
    … …  
    169169         ! 
    170170         !        before       !          now          !       after         ! 
    171          ;                     ;      ht_n =    ht_0   !                     ! water column thickness 
    172          ;     hu_b =    hu_0  ;      hu_n =    hu_0   ;    hu_a =    hu_0   !  
    173          ;     hv_b =    hv_0  ;      hv_n =    hv_0   ;    hv_a =    hv_0   ! 
    174          ;  r1_hu_b = z1_hu_0  ;   r1_hu_n = z1_hu_0   ; r1_hu_a = z1_hu_0   ! inverse of water column thickness 
    175          ;  r1_hv_b = z1_hv_0  ;   r1_hv_n = z1_hv_0   ; r1_hv_a = z1_hv_0   ! 
     171                                      ht_n =    ht_0   !                     ! water column thickness 
     172               hu_b =    hu_0  ;      hu_n =    hu_0   ;    hu_a =    hu_0   !  
     173               hv_b =    hv_0  ;      hv_n =    hv_0   ;    hv_a =    hv_0   ! 
     174            r1_hu_b = z1_hu_0  ;   r1_hu_n = z1_hu_0   ; r1_hu_a = z1_hu_0   ! inverse of water column thickness 
     175            r1_hv_b = z1_hv_0  ;   r1_hv_n = z1_hv_0   ; r1_hv_a = z1_hv_0   ! 
    176176         ! 
    177177         ! 
Note: See TracChangeset for help on using the changeset viewer.