- Timestamp:
- 2017-03-09T13:52:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
- Property svn:keywords deleted
r5682 r7773 22 22 !! - ! 2013-04 (F. Roquet, G. Madec) add eos_rab, change bn2 computation and reorganize the module 23 23 !! - ! 2014-09 (F. Roquet) add TEOS-10, S-EOS, and modify EOS-80 24 !! - ! 2015-06 (P.A. Bouttier) eos_fzp functions changed to subroutines for AGRIF25 24 !!---------------------------------------------------------------------- 26 25 … … 992 991 993 992 994 SUBROUTINE eos_fzp_2d( psal, ptf, pdep)993 FUNCTION eos_fzp_2d( psal, pdep ) RESULT( ptf ) 995 994 !!---------------------------------------------------------------------- 996 995 !! *** ROUTINE eos_fzp *** … … 1006 1005 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ) :: psal ! salinity [psu] 1007 1006 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ), OPTIONAL :: pdep ! depth [m] 1008 REAL(wp), DIMENSION(jpi,jpj) , INTENT(out ) :: ptf! freezing temperature [Celcius]1007 REAL(wp), DIMENSION(jpi,jpj) :: ptf ! freezing temperature [Celcius] 1009 1008 ! 1010 1009 INTEGER :: ji, jj ! dummy loop indices … … 1039 1038 nstop = nstop + 1 1040 1039 ! 1041 END SELECT 1042 ! 1043 END SUBROUTINEeos_fzp_2d1044 1045 SUBROUTINE eos_fzp_0d( psal, ptf, pdep)1040 END SELECT 1041 ! 1042 END FUNCTION eos_fzp_2d 1043 1044 FUNCTION eos_fzp_0d( psal, pdep ) RESULT( ptf ) 1046 1045 !!---------------------------------------------------------------------- 1047 1046 !! *** ROUTINE eos_fzp *** … … 1055 1054 !! Reference : UNESCO tech. papers in the marine science no. 28. 1978 1056 1055 !!---------------------------------------------------------------------- 1057 REAL(wp), INTENT(in ) :: psal! salinity [psu]1058 REAL(wp), INTENT(in ), OPTIONAL :: pdep! depth [m]1059 REAL(wp) , INTENT(out) :: ptf! freezing temperature [Celcius]1056 REAL(wp), INTENT(in) :: psal ! salinity [psu] 1057 REAL(wp), INTENT(in), OPTIONAL :: pdep ! depth [m] 1058 REAL(wp) :: ptf ! freezing temperature [Celcius] 1060 1059 ! 1061 1060 REAL(wp) :: zs ! local scalars … … 1087 1086 END SELECT 1088 1087 ! 1089 END SUBROUTINEeos_fzp_0d1088 END FUNCTION eos_fzp_0d 1090 1089 1091 1090
Note: See TracChangeset
for help on using the changeset viewer.