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 9975 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC – NEMO

Ignore:
Timestamp:
2018-07-19T17:46:32+02:00 (6 years ago)
Author:
marc
Message:

GMED ticket 400. Fixes to make the code more portable.

Location:
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90

    r6486 r9975  
    330330CONTAINS 
    331331   SUBROUTINE trc_sms_c14b( kt )       ! Empty routine 
     332      IMPLICIT NONE 
     333      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    332334      WRITE(*,*) 'trc_freons: You should not have seen this print! error?', kt 
    333335   END SUBROUTINE trc_sms_c14b 

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r9163 r9975  
    267267                             ! mort. loss 
    268268                         ((1.0 - xfdfrac1) * fdpds(ji,jj)) +                 & 
    269                              &  ! egestion of grazed Si 
     269                             ! egestion of grazed Si 
    270270                         ((1.0 - xfdfrac3) * fgmepds(ji,jj)) +               & 
    271271                             ! fast diss. and metab. losses 

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r9385 r9975  
    798798      !! temporary variables 
    799799      REAL(wp), INTENT( in ), DIMENSION(3,3) :: tiny_var, tiny_mask 
    800       CHARACTER(25), INTENT( in )            :: var_nm 
     800      CHARACTER(3), INTENT( in )            :: var_nm 
    801801      REAL(wp), INTENT( in )                 :: mini, maxi 
    802802      REAL(wp), INTENT( out )                :: varout 

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r7771 r9975  
    5151      !! 
    5252      !!----------------------------------------------------------------------   
     53      IMPLICIT NONE 
    5354      INTEGER, INTENT( in ) ::   kt   ! ocean time-step  
    5455      CHARACTER (len=22) :: charout 
    5556      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
     57      INTEGER :: jn                   ! Local loop index 
    5658      !!---------------------------------------------------------------------- 
    5759      ! 
    … …  
    108110CONTAINS 
    109111   SUBROUTINE trc_bbl( kt )              ! Empty routine 
     112      IMPLICIT NONE 
     113      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    110114      WRITE(*,*) 'tra_bbl: You should not have seen this print! error?', kt 
    111115   END SUBROUTINE trc_bbl 

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r9385 r9975  
    726726      !!---------------------------------------------------------------------- 
    727727      INTEGER  :: ji, jj, jk, jn 
    728       REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio, loc_vol, loc_are 
    729       REAL(wp) :: zq1, zq2, loc_vol, loc_area 
     728      REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio 
    730729      REAL(wp), DIMENSION(jpi,jpj,jpk) :: z3d, zvol 
    731730      REAL(wp), DIMENSION(jpi,jpj)     :: z2d, zarea 
Note: See TracChangeset for help on using the changeset viewer.