Skip to content

Commit db55c30

Browse files
mathomp4mathomp4
committed
Fix misspelling
1 parent 5427f09 commit db55c30

File tree

1 file changed

+40
-40
lines changed

1 file changed

+40
-40
lines changed

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90‎

Lines changed: 40 additions & 40 deletions
Original file line numberDiff line numberDiff line change
@@ -524,7 +524,7 @@ subroutine SetServices ( GC, RC )
524524
SHORT_NAME = 'TAUOROX', &
525525
LONG_NAME = 'surface_eastward_orographic_gravity_wave_stress', &
526526
UNITS = 'N m-2', &
527-
RESTART = MAPL_RestartSkip, &
527+
RESTART = MAPL_RestartSkip, &
528528
DIMS = MAPL_DimsHorzOnly, &
529529
VLOCATION = MAPL_VLocationNone, RC=STATUS )
530530
VERIFY_(STATUS)
@@ -533,7 +533,7 @@ subroutine SetServices ( GC, RC )
533533
SHORT_NAME = 'TAUOROY', &
534534
LONG_NAME = 'surface_northward_orographic_gravity_wave_stress', &
535535
UNITS = 'N m-2', &
536-
RESTART = MAPL_RestartSkip, &
536+
RESTART = MAPL_RestartSkip, &
537537
DIMS = MAPL_DimsHorzOnly, &
538538
VLOCATION = MAPL_VLocationNone, RC=STATUS )
539539
VERIFY_(STATUS)
@@ -543,7 +543,7 @@ subroutine SetServices ( GC, RC )
543543
SHORT_NAME = 'OMEGA', &
544544
LONG_NAME = 'vertical_pressure_velocity', &
545545
UNITS = 'Pa s-1', &
546-
RESTART = MAPL_RestartSkip, &
546+
RESTART = MAPL_RestartSkip, &
547547
DIMS = MAPL_DimsHorzVert, &
548548
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
549549
VERIFY_(STATUS)
@@ -940,25 +940,25 @@ subroutine SetServices ( GC, RC )
940940
SHORT_NAME = 'QRTOT', &
941941
LONG_NAME = 'grid_box_mass_fraction_of_suspended_rain', &
942942
UNITS = 'kg kg-1', &
943-
DIMS = MAPL_DimsHorzVert, &
944-
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
945-
VERIFY_(STATUS)
943+
DIMS = MAPL_DimsHorzVert, &
944+
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
945+
VERIFY_(STATUS)
946946

947947
call MAPL_AddExportSpec(GC, &
948948
SHORT_NAME = 'QSTOT', &
949949
LONG_NAME = 'grid_box_mass_fraction_of_suspended_snow', &
950950
UNITS = 'kg kg-1', &
951-
DIMS = MAPL_DimsHorzVert, &
952-
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
953-
VERIFY_(STATUS)
951+
DIMS = MAPL_DimsHorzVert, &
952+
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
953+
VERIFY_(STATUS)
954954

955955
call MAPL_AddExportSpec(GC, &
956956
SHORT_NAME = 'QGTOT', &
957957
LONG_NAME = 'grid_box_mass_fraction_of_suspended_graupel', &
958958
UNITS = 'kg kg-1', &
959-
DIMS = MAPL_DimsHorzVert, &
960-
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
961-
VERIFY_(STATUS)
959+
DIMS = MAPL_DimsHorzVert, &
960+
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
961+
VERIFY_(STATUS)
962962

963963
call MAPL_AddExportSpec(GC, &
964964
SHORT_NAME = 'QPTOTLS', &
@@ -1146,18 +1146,18 @@ subroutine SetServices ( GC, RC )
11461146
RC=STATUS )
11471147
VERIFY_(STATUS)
11481148

1149-
call MAPL_AddExportSpec(GC, &
1149+
call MAPL_AddExportSpec(GC, &
11501150
SHORT_NAME = 'UMF_DC', &
1151-
LONG_NAME = 'Deep_updraft_mass_flux_at_interfaces', &
1151+
LONG_NAME = 'Deep_updraft_mass_flux_at_interfaces', &
11521152
UNITS = 'kg m-2 s-1', &
11531153
DIMS = MAPL_DimsHorzVert, &
11541154
VLOCATION = MAPL_VLocationEdge, &
11551155
RC=STATUS )
11561156
VERIFY_(STATUS)
1157-
1158-
call MAPL_AddExportSpec(GC, &
1157+
1158+
call MAPL_AddExportSpec(GC, &
11591159
SHORT_NAME = 'MFD_DC', &
1160-
LONG_NAME = 'Deep_updraft_detrained_mass_flux', &
1160+
LONG_NAME = 'Deep_updraft_detrained_mass_flux', &
11611161
UNITS = 'kg m-2 s-1', &
11621162
DIMS = MAPL_DimsHorzVert, &
11631163
VLOCATION = MAPL_VLocationCenter, &
@@ -1192,7 +1192,7 @@ subroutine SetServices ( GC, RC )
11921192
VERIFY_(STATUS)
11931193

11941194
call MAPL_AddExportSpec(GC, &
1195-
SHORT_NAME = 'CNV_TOPP_DP', &
1195+
SHORT_NAME = 'CNV_TOPP_DP', &
11961196
LONG_NAME = 'pressure_at_deep_convective_cloud_top', &
11971197
UNITS = 'Pa', &
11981198
DIMS = MAPL_DimsHorzOnly, &
@@ -1201,7 +1201,7 @@ subroutine SetServices ( GC, RC )
12011201
VERIFY_(STATUS)
12021202

12031203
call MAPL_AddExportSpec(GC, &
1204-
SHORT_NAME = 'CNV_TOPP_MD', &
1204+
SHORT_NAME = 'CNV_TOPP_MD', &
12051205
LONG_NAME = 'pressure_at_congestus_convective_cloud_top', &
12061206
UNITS = 'Pa', &
12071207
DIMS = MAPL_DimsHorzOnly, &
@@ -1210,7 +1210,7 @@ subroutine SetServices ( GC, RC )
12101210
VERIFY_(STATUS)
12111211

12121212
call MAPL_AddExportSpec(GC, &
1213-
SHORT_NAME = 'CNV_TOPP_SH', &
1213+
SHORT_NAME = 'CNV_TOPP_SH', &
12141214
LONG_NAME = 'pressure_at_shallow_convective_cloud_top', &
12151215
UNITS = 'Pa', &
12161216
DIMS = MAPL_DimsHorzOnly, &
@@ -1240,23 +1240,23 @@ subroutine SetServices ( GC, RC )
12401240

12411241
call MAPL_AddExportSpec(GC, &
12421242
SHORT_NAME = 'ENTR_MD', &
1243-
LONG_NAME = 'Lateral_entrainment_rate_in_gf_mid_convection_updraft', &
1243+
LONG_NAME = 'Lateral_entrainment_rate_in_gf_mid_convection_updraft', &
12441244
UNITS = 'm-1', &
12451245
DIMS = MAPL_DimsHorzVert, &
1246-
VLOCATION = MAPL_VLocationCenter, &
1246+
VLOCATION = MAPL_VLocationCenter, &
12471247
RC=STATUS )
1248-
1249-
VERIFY_(STATUS)
1248+
1249+
VERIFY_(STATUS)
12501250

12511251
call MAPL_AddExportSpec(GC, &
12521252
SHORT_NAME = 'ENTR_SH', &
1253-
LONG_NAME = 'Lateral_entrainment_rate_in_gf_shallow_convection_updraft', &
1253+
LONG_NAME = 'Lateral_entrainment_rate_in_gf_shallow_convection_updraft', &
12541254
UNITS = 'm-1', &
12551255
DIMS = MAPL_DimsHorzVert, &
1256-
VLOCATION = MAPL_VLocationCenter, &
1256+
VLOCATION = MAPL_VLocationCenter, &
12571257
RC=STATUS )
1258-
1259-
VERIFY_(STATUS)
1258+
1259+
VERIFY_(STATUS)
12601260

12611261
call MAPL_AddExportSpec(GC, &
12621262
SHORT_NAME = 'CNV_UPDF', &
@@ -1937,7 +1937,7 @@ subroutine SetServices ( GC, RC )
19371937

19381938
call MAPL_AddExportSpec(GC, &
19391939
SHORT_NAME = 'QR', &
1940-
LONG_NAME = 'in_cloud_ralling_rain_for_radiation', &
1940+
LONG_NAME = 'in_cloud_falling_rain_for_radiation', &
19411941
UNITS = 'kg kg-1', &
19421942
DIMS = MAPL_DimsHorzVert, &
19431943
VLOCATION = MAPL_VLocationCenter, RC=STATUS )
@@ -2031,13 +2031,13 @@ subroutine SetServices ( GC, RC )
20312031
VLOCATION = MAPL_VLocationNone, RC=STATUS )
20322032
VERIFY_(STATUS)
20332033

2034-
call MAPL_AddExportSpec(GC, &
2034+
call MAPL_AddExportSpec(GC, &
20352035
SHORT_NAME = 'SNOW_RATIO', &
20362036
LONG_NAME = 'ratio_of_snow_to_total_precip',&
20372037
UNITS = '1', &
20382038
DIMS = MAPL_DimsHorzOnly, &
20392039
VLOCATION = MAPL_VLocationNone, RC=STATUS )
2040-
VERIFY_(STATUS)
2040+
VERIFY_(STATUS)
20412041

20422042
call MAPL_AddExportSpec(GC, &
20432043
SHORT_NAME ='LS_PRCP', &
@@ -2571,13 +2571,13 @@ subroutine SetServices ( GC, RC )
25712571
VLOCATION = MAPL_VLocationNone, RC=STATUS )
25722572
VERIFY_(STATUS)
25732573

2574-
call MAPL_AddExportSpec(GC, &
2574+
call MAPL_AddExportSpec(GC, &
25752575
SHORT_NAME='RKFRE', &
2576-
LONG_NAME ='fraction_of_tke_associated_with_vertical_velocity', &
2577-
UNITS ='' , &
2576+
LONG_NAME ='fraction_of_tke_associated_with_vertical_velocity', &
2577+
UNITS ='' , &
25782578
DIMS = MAPL_DimsHorzOnly, &
25792579
VLOCATION = MAPL_VLocationNone, RC=STATUS )
2580-
VERIFY_(STATUS)
2580+
VERIFY_(STATUS)
25812581

25822582
call MAPL_AddExportSpec(GC, &
25832583
SHORT_NAME='STOCH_CNV', &
@@ -5389,19 +5389,19 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
53895389
! Trajectory for the moist TLM/ADJ
53905390
!---------------------------------------------------------
53915391
call MAPL_GetPointer(EXPORT, PTR3D, 'TH_moist' , RC=STATUS); VERIFY_(STATUS)
5392-
if (associated(PTR3D)) PTR3D = T/PK
5392+
if (associated(PTR3D)) PTR3D = T/PK
53935393
call MAPL_GetPointer(EXPORT, PTR3D, 'Q_moist' , RC=STATUS); VERIFY_(STATUS)
53945394
if (associated(PTR3D)) PTR3D = Q
53955395
call MAPL_GetPointer(EXPORT, PTR2D, 'TS_moist' , RC=STATUS); VERIFY_(STATUS)
5396-
if (associated(PTR2D)) PTR2D = TS
5396+
if (associated(PTR2D)) PTR2D = TS
53975397
call MAPL_GetPointer(EXPORT, PTR2D, 'KHu_moist', RC=STATUS); VERIFY_(STATUS)
53985398
if (associated(PTR2D)) then
5399-
PTR2D = -1
5399+
PTR2D = -1
54005400
do l = 0,LM
54015401
where( (PTR2D == -1) .AND. (KH(:,:,l) > 2.0) )
54025402
PTR2D = l * 1.0
54035403
end where
5404-
enddo
5404+
enddo
54055405
endif
54065406
call MAPL_GetPointer(EXPORT, PTR2D, 'KHl_moist', RC=STATUS); VERIFY_(STATUS)
54075407
if (associated(PTR2D)) then
@@ -5427,7 +5427,7 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
54275427
endif
54285428
PTR2D(I,J) = MAX( PTR2D(I,J), KCBLMIN )
54295429
enddo
5430-
enddo
5430+
enddo
54315431
endif
54325432

54335433
! These may be used by children

0 commit comments

Comments
 (0)