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 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90 – NEMO

Ignore:
Timestamp:
2015-07-16T20:05:07+02:00 (9 years ago)
Author:
mathiot
Message:

Marine glacier termini: initial commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r5102 r5605  
    114114      ! 
    115115      CASE( 0 )                   !==  newtonian damping throughout the water column  ==! 
     116          resto = 0.0_wp                              ! need to be restore before submissionto the trunk 
     117          !WHERE (un(3:11,3:7,:) .GE. 1.e-2) 
     118          !   resto(3:11,3:7,:) = 1._wp/1440._wp 
     119          !END WHERE 
     120          WHERE (un(12,3:7,:) .GE. 1.e-2) 
     121             resto(12,3:7,:) = 1._wp/1440._wp 
     122          END WHERE 
    116123         DO jk = 1, jpkm1 
    117124            DO jj = 2, jpjm1 
     
    240247 
    241248         !Read in mask from file 
    242          CALL iom_open ( cn_resto, imask) 
    243          CALL iom_get  ( imask, jpdom_autoglo, 'resto', resto) 
    244          CALL iom_close( imask ) 
     249! need to be restore before submission to the trunk 
     250!         CALL iom_open ( cn_resto, imask) 
     251!         CALL iom_get  ( imask, jpdom_autoglo, 'resto', resto) 
     252!         CALL iom_close( imask ) 
     253          resto = 0.0_wp 
     254          WHERE (un(2:10,2,:) .LE. 1.e-3) 
     255             resto(2:10,2,:) = 1._wp/86400._wp 
     256          END WHERE 
    245257       ENDIF 
    246258 
Note: See TracChangeset for help on using the changeset viewer.