Changeset 13321
- Timestamp:
- 2020-07-17T12:37:48+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90
r13320 r13321 624 624 !!---------------------------------------------------------------------- 625 625 INTEGER, INTENT( in ) :: kt 626 #if defined key_traldf_c3d627 REAL(wp), INTENT( inout ), DIMENSION(jpi,jpj,jpk) :: coeff628 REAL(wp), POINTER, DIMENSION(:,:,:) :: gauss629 #elif defined key_traldf_c2d630 626 REAL(wp), INTENT( inout ), DIMENSION(jpi,jpj) :: coeff 631 REAL(wp), POINTER, DIMENSION(:,:) :: gauss632 #else633 ! These variables must be defined in for the routine interface,634 ! but are not used.635 REAL(wp), INTENT( inout ), DIMENSION(jpk) :: coeff636 REAL(wp), POINTER, DIMENSION(:) :: gauss637 #endif638 627 INTEGER, INTENT( in ) :: nn_type 639 628 REAL(wp), INTENT( in ) :: rn_sd 640 629 INTEGER, INTENT( in ) :: kspp 641 630 INTEGER, INTENT( in ), OPTIONAL :: klev 631 REAL(wp), POINTER, DIMENSION(:,:) :: gauss 642 632 REAL(wp) :: zsd,xme,mm 643 633 CHARACTER (LEN=99) :: cstrng 644 634 INTEGER :: jklev 645 635 646 #if defined key_traldf_c2d || key_traldf_c3d 636 #if defined key_traldf_c3d || key_traldf_c3d 637 647 638 CALL wrk_alloc(jpi,jpj,gauss) 648 639 … … 706 697 707 698 #else 708 CALL ctl_stop( 'spp_gen: parameter perturbation will only work with '// & 709 'key_traldf_c2d or key_traldf_c3d') 710 #endif 711 699 CALL ctl_stop('key_traldf_c1d is not a valid key for STO') 700 #endif 712 701 713 702 END SUBROUTINE … … 721 710 IMPLICIT NONE 722 711 INTEGER, INTENT(IN) :: mt,kp,kl 723 #if defined key_traldf_c3d 724 REAL(wp), INTENT( inout ), DIMENSION(jpi,jpj,jpk) :: rcf 725 #elif defined key_traldf_c2d 726 REAL(wp), INTENT( inout ), DIMENSION(jpi,jpj) :: rcf 727 #else 728 ! This variable must be defined for for the routine interface, 729 ! but are not used. 730 REAL(wp), INTENT( inout ), DIMENSION(jpk) :: rcf 731 #endif 712 REAL(wp), INTENT(IN) :: rcf(jpi,jpj) 732 713 REAL(wp) :: mi,ma 733 714 CHARACTER(LEN=16) :: cstr = ' ' … … 935 916 #elif defined key_traldf_c2d 936 917 REAL(wp), INTENT( inout ), DIMENSION(jpi,jpj) :: coeff 918 #elif defined key_traldf_c1d 919 REAL(wp), INTENT( inout ), DIMENSION(jpk) :: coeff 937 920 #else 938 ! This variable must be defined for for the routine interface, 939 ! but are not used. 940 REAL(wp), INTENT( inout ), DIMENSION(jpk) :: coeff 921 REAL(wp), INTENT( inout ) :: coeff 941 922 #endif 942 923 INTEGER, INTENT( in ) :: kspp … … 946 927 REAL(wp) :: zsd,xme 947 928 INTEGER :: jk 929 930 #if defined key_traldf_c3d || key_traldf_c2d 948 931 949 932 CALL wrk_alloc(jpi,jpj,gauss) … … 990 973 ENDIF 991 974 992 #if defined key_traldf_c2d || key_traldf_c3d993 975 IF( ln_stopack_diags ) THEN 994 976 CALL spp_stats(kt,kspp,0,coeff) 995 977 ENDIF 978 979 #else 980 CALL ctl_stop('key_traldf_c1d is not a valid key for STO') 981 996 982 #endif 997 983 … … 1024 1010 REAL(wp) :: zsd,xme 1025 1011 INTEGER :: jk 1012 1013 #if defined key_dynldf_c3d || key_dynldf_c2d 1026 1014 1027 1015 CALL wrk_alloc(jpi,jpj,gauss) … … 1068 1056 ENDIF 1069 1057 1070 #if defined key_traldf_c2d || key_traldf_c3d1071 1058 IF( ln_stopack_diags ) THEN 1072 1059 CALL spp_stats(kt,kspp,0,coeff) 1073 1060 ENDIF 1074 #endif1075 1061 1076 1062 CALL wrk_dealloc(jpi,jpj,gauss) 1063 1064 #else 1065 CALL ctl_stop('key_traldf_c1d is not a valid key for STO') 1066 #endif 1077 1067 1078 1068 END SUBROUTINE
Note: See TracChangeset
for help on using the changeset viewer.