Changeset 14652
- Timestamp:
- 2021-03-26T18:58:33+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/closea.F90
r13558 r14652 259 259 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'alloc_csmask: failed to allocate surf array') 260 260 ! 261 END SUBROUTINE 261 END SUBROUTINE alloc_csmask 262 262 263 263 END MODULE closea -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/daymod.F90
r14219 r14652 199 199 END DO 200 200 ! 201 END SUBROUTINE 201 END SUBROUTINE day_mth 202 202 203 203 -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ICB/icbutl.F90
r14650 r14652 521 521 END DO 522 522 kb = MIN(kb - 1,jpk) 523 END SUBROUTINE 523 END SUBROUTINE icb_utl_getkb 524 524 525 525 SUBROUTINE icb_utl_zavg(pzavg, pdat, pe3, pD, kb ) … … 546 546 ! if kb not limited by mbkt => ocean value over mask is used (ie 0.0 for u, v) 547 547 pzavg = ( pzavg + (pD - zdep)*pdat(kb)) / pD 548 END SUBROUTINE 548 END SUBROUTINE icb_utl_zavg 549 549 550 550 SUBROUTINE icb_utl_add( bergvals, ptvals ) -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfdiags.F90
r13295 r14652 73 73 IF ( iom_use( TRIM(cvarqhc3d) ) ) CALL isf_diags_2dto3d( Kmm, ktop, kbot, phtbl, pfrac, TRIM(cvarqhc3d) , pqhc (:,:)) 74 74 ! 75 END SUBROUTINE 75 END SUBROUTINE isf_diags_flx 76 76 77 77 SUBROUTINE isf_diags_2dto3d(Kmm, ktop, kbot, phtbl, pfrac, cdvar, pvar2d) -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_prep.F90
r14644 r14652 738 738 ENDIF 739 739 740 END SUBROUTINE 740 END SUBROUTINE calc_month_len 741 741 742 742 SUBROUTINE obs_coo_tim_prof( kcycle, & -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcclo.F90
r12377 r14652 160 160 END DO ! jcs 161 161 162 END SUBROUTINE 162 END SUBROUTINE get_cssrcsurf 163 163 164 164 SUBROUTINE get_cstrgsurf(kncs, kmaskcs, kmaskcsgrp, psurftrg, kcsgrp ) … … 212 212 END DO ! jcs 213 213 214 END SUBROUTINE 214 END SUBROUTINE get_cstrgsurf 215 215 216 216 SUBROUTINE prt_csctl(kncs, psurfsrc, psurftrg, kcsgrp, cdcstype) … … 246 246 END IF 247 247 248 END SUBROUTINE 248 END SUBROUTINE prt_csctl 249 249 250 250 SUBROUTINE sbc_csupdate(kncs, kcsgrp, kmsk_src, kmsk_grp, psurfsrc, psurftrg, cdcstype, kmsk_opnsea, psurf_opnsea, pwcs, pqcs) … … 318 318 END DO ! jcs 319 319 320 END SUBROUTINE 320 END SUBROUTINE sbc_csupdate 321 321 322 322 SUBROUTINE alloc_csarr( klen, pvarsrc, pvartrg, kvargrp ) … … 346 346 pvartrg(:) = 0.e0_wp 347 347 kvargrp(:) = 0 348 END SUBROUTINE 348 END SUBROUTINE alloc_csarr 349 349 350 350 END MODULE
Note: See TracChangeset
for help on using the changeset viewer.