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

Changeset 13156


Ignore:
Timestamp:
2020-06-25T10:02:26+02:00 (4 years ago)
Author:
techene
Message:

some bug correction (zgdept allocation, empty step qco module when key_qco is not activated)

Location:
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diaar5.F90

    r12911 r13156  
    132132         ztsn(:,:,:,jp_tem) = ts(:,:,:,jp_tem,Kmm)                    ! thermosteric ssh 
    133133         ztsn(:,:,:,jp_sal) = sn0(:,:,:) 
     134         ALLOCATE( zgdept(jpi,jpj,jpk) ) 
    134135         DO jk = 1, jpk 
    135136            zgdept(:,:,jk) = gdept(:,:,jk,Kmm) 
    … …  
    190191         zbotpres(:,:) = zztmp * ( zbotpres(:,:) + ssh(:,:,Kmm) + thick0(:,:) ) 
    191192         CALL iom_put( 'botpres', zbotpres ) 
     193         ! 
     194         DEALLOCATE( zgdept ) 
    192195         ! 
    193196      ENDIF 

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/stpMLF.F90

    r12779 r13156  
    4848   IMPLICIT NONE 
    4949   PRIVATE 
    50  
     50    
     51#if ! defined key_qco 
     52   !!---------------------------------------------------------------------- 
     53   !!   'key_qco'      EMPTY MODULE      Quasi-Eulerian vertical coordonate 
     54   !!---------------------------------------------------------------------- 
     55#else 
    5156   PUBLIC   stp_MLF   ! called by nemogcm.F90 
    5257 
    … …  
    463468      ! 
    464469   END SUBROUTINE finalize_sbc 
    465  
     470#endif 
    466471   ! 
    467472   !!====================================================================== 
Note: See TracChangeset for help on using the changeset viewer.