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 10403 for branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 – NEMO

Ignore:
Timestamp:
2018-12-17T18:06:43+01:00 (5 years ago)
Author:
cmao
Message:

Add IMPLICIT NONE statements to branch following changeset 9578 for branch dev_55518_GO6_package_rigorous_compile_fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r10207 r10403  
    12271227CONTAINS 
    12281228   SUBROUTINE zdf_gls_init           ! Empty routine 
     1229   IMPLICIT NONE 
    12291230      WRITE(*,*) 'zdf_gls_init: You should not have seen this print! error?' 
    12301231   END SUBROUTINE zdf_gls_init 
     1232    
    12311233   SUBROUTINE zdf_gls( kt )          ! Empty routine 
     1234   IMPLICIT NONE 
     1235      INTEGER, INTENT(in) ::   kt ! ocean time step    
    12321236      WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 
    12331237   END SUBROUTINE zdf_gls 
     1238    
    12341239   SUBROUTINE gls_rst( kt, cdrw )          ! Empty routine 
     1240   IMPLICIT NONE 
    12351241      INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
    12361242      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
Note: See TracChangeset for help on using the changeset viewer.