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 7204 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2016-11-08T08:58:31+01:00 (7 years ago)
Author:
cbricaud
Message:

commit modifications in CRS branch

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r6772 r7204  
    101101 
    102102            fmask_crs(ji,jj,jk) = fmask(ijie,ijje,jk) 
    103  
    104103 
    105104         ENDDO 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90

    r6786 r7204  
    169169 
    170170      CALL crs_dom_facvol( tmask, 'T', e1t, e2t, zfse3t, ocean_volume_crs_t, facvol_t ) 
    171       CALL iom_put("ocean_volume_crs_t",ocean_volume_crs_t) 
     171      CALL iom_put("cvol_crs_t",ocean_volume_crs_t) 
    172172      ! 
    173173      bt_crs(:,:,:) = ocean_volume_crs_t(:,:,:) * facvol_t(:,:,:)*tmask_crs(:,:,:) 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r6772 r7204  
    395395      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    396396 
     397      IF( ln_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid 
     398 
    397399                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    398400 
    … …  
    408410                            CALL dyn_nept_init  ! simplified form of Neptune effect 
    409411      !      
    410       IF( ln_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid 
     412      IF( ln_crs        )   CALL     eos_init_crs   ! Equation of state 
    411413      ! 
    412414                                ! Ocean physics 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6772 r7204  
    167167                         CALL ldf_slp_grif( kstp ) 
    168168         ELSE 
    169                          CALL iom_put("rabt",rab_n(:,:,:,jp_tem)) 
    170                          CALL iom_put("rabs",rab_n(:,:,:,jp_sal)) 
    171                          CALL iom_put("rhd",rhd) 
    172                          CALL iom_put("rn2b",rn2b) 
    173                          CALL iom_put("rn2",rn2) 
    174169                         CALL ldf_slp( kstp, rhd, rn2b )     ! before slope for Madec operator 
    175170         ENDIF 
    … …  
    259254                         CALL zdf_mxl_crs(kstp) 
    260255                         CALL eos_crs ( tsn_crs, rhd_crs, rhop_crs, fsdept_crs(:,:,:) ) ! now in situ density for hpg computation 
    261                          CALL iom_put("rhop_crs",rhop_crs) 
    262                          CALL iom_put("rhd_crs",rhd_crs) 
    263256 
    264257         IF( ln_zps )    CALL zps_hde_crs( kstp, jpts, tsb_crs, gtsu_crs, gtsv_crs, rhd_crs, gru_crs, grv_crs ) 
Note: See TracChangeset for help on using the changeset viewer.